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FOREWORD 


This book is written as a guide to understanding some of the 
lesser known programming aspects of the Sharp MZ-700 series 
Personal Computer. 

The S-Basic used in programming the 700 is, in common with 
most micros, based on standard Microsoft Basic with a few 
variations. These will be explained along with the two, often 
misunderstood, commands PEEK and POKE. 

Owners Manuals assume their readers possess a certain level of 
knowledge, but as is often the case one finds certain sections 
over simplified while others appear a complete mystery. I hope 
this book will clear some of the mystique and go a little way 
to giving you that all important leg-up on the ladder of 
understanding in regard to a most powerful Personal Micro, the 
MZ-700. 
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1. ROM & RAM 


Some knowledge of how the Sharp micro stores data is helpful if one 
is to understand something about the two statements PEEK and POKE. 

The memory of the MZ-700 series is compiled of a number of bytes, 
some are in ROM and the majority in RAM. ROM stands for Read Only 
Memory, and that is exactly all the micro can do with it, read and 
act upon the instructions contained within that, area, the Monitor 
Program 1Z-013A which springs into life each time one switches on is 
contained in ROM, the size of this area is 4 Kbytes and is 
responsible for controlling any programs which are written in 
Machine Code or languages other than Basic. 

After switching-on one loads the Basic tape, S-BASIC, this loads 
directly into RAM which stands for Random Access Memory, and is also 
known as Read/Write Memory, which is more accurate as unlike ROM the 
contents can be altered at will to suit ones needs. 

The S-BASIC tape, known as the Basic Interpreter, loads into the RAM 
area and then switches out the area taken with ROM to give the user 
the maximum amount of memory for programs. On some other micros the 
Basic Interpreter is permanently in ROM, which means that the 
computer is ready to accept programs written in Basic immediately 
the micro is switched on. However the few minutes extra that it 
takes for the MZ-700 to load Basic into RAM is not derisory, as it 
enables us to alter Basic to our requirements very simply, and if 
one wishes to use a different language such as FORTH, PASCAL etc. 
one has not got the Basic Interpreter continually taking up precious 
memory space and being unused. Furthermore if one wishes to add some 
extra routines, similar to those in this book, one simply enters 
them from the keyboard, and if you wish to add a toolkit, which are 
tapes of additional commands in Basic, one only has to load the 
extra tape, whereas on micros with the Basic in ROM it can mean 
buying and replacing chips within the micro, at considerable extra 
cost. 
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The Memory Map of the MZ-700 is shown on pages 123/124 of the 
Owners Manual, and it should be noted that the numbers on the left 
side of the diagrams are in hexadecimal, that is numbers to the base 
of sixteen. The everyday numbers we use are decimal, to the base of 
ten. If one is going to progress to programming using Assembly 
Language or Machine Code then it will be neccessary to be acquainted 
with this system of numbering, nevertheless whenever a hex number is 
used in this book the decimal equivalent will be shown, there is 
also a conversion chart in the Appendix to assist you. 

At this stage it should be pointed out that it is not neccessary to 
understand the Owners Manual from cover to cover to enable one to 
begin programming in Basic. Provided that you have read and 
understood the first two chapters on operating and the Basic 
commands it should be sufficient for you to get started. The Manual 
is a comprehensive guide to the MZ-700 from Basic through to the 
hardware configuration, and should appeal to experienced programmers 
and beginners alike. So if you have grasped most of the first two 
chapters and are bogged down trying to understand the Hardware or 
Monitor sections don't worry as it will not stop you writing Basic 
programs. Similarly with this chapter, if you find it heavy going 
don't despair you can always refer to it later, it is better to have 
more details on a subject than not enough, though one should read 
the next chapter on some of the Basic commands which may not be too 
clear from the Owners Manual. 


MEMORY MAP 

The first section of memory from address 0000 to OFFF Hex (0 to 
4095 Decimal) is where the Monitor 1Z-013A resides in ROM. Each byte 
is listed in the Owners Manual in chapter 5, it is essential to know 
the addresses of the Monitor subroutines if one is going to program 
in Assembly language, but not important in Basic. 

RAM starts directly above this, and the area from 1000 to IIFFhex 
(4096 to 4607dec) is used to contain details of the program being 
used, such as size, execution address as can be seen on page 195 of 


8 



the Manual. This area is called the Monitor work area. Any Machine 
Language programs you write or buy will commence loading above this 
area in memory and will be controlled using the Monitor commands and 
routines described in chapter 5 of the Manual. At switch on the area 
from 1200 to CFFFhex (4608 to 53247dec) is completely empty and 
ready to use. The area starting at D000 to DFFFhex (53248 to 
57343dec) is used to store current details of the screen, which is 
in RAM due to the screen details constantly changing, and is known 
as the Video Ram Area. Above this is the the Key Timer Ports and 
areas for controlling peripheral devices, such as printers and disc 
drives. 

The Basic Interpreter tape commences loading directly above the 
Monitor work area at 1200hex (4608dec), and loads right up to 
7DA0hex (32160dec). It's function is to interpret the lines of 
programs you write or load from tape into code that the computer 
understands, it interprets. It will recognise all the commands and 
statements which you are allowed to use in your programs, and will 
reject any incorrect ones, try entering GOTI instead of GOTO and you 
will see. After loading control is passed to location 7D79hex 
(32121 dec) where a routine is located which swaps over the ROM 
Monitor and the RAM areas above DOOOhex and switches in RAM 
available to the user. It then moves the the complete Interpreter 
down to start at OOOOhex, and the end becomes 6B79hex (27513dec). 

The Basic Interpreter contains it's own Monitor, we will call it the 
RAM Monitor to differentiate between the two. It contains routines 
to handle all the similar tasks that the ROM Monitor would normally 
do, but cannot because it has been swapped over, but they are all at 
different addresses, although the jump table at the beginning is 
similar (i.e. to call Bell one still enters USR(62) but it then 
jumps to a different address than used by the ROM Monitor). As with 
the ROM Monitor, Basic has to have work areas to store details of 
the current program, and there are several blocks of RAM throughout 
the Interpreter alocated as work areas. These areas of memory 
contain more information than the ROM work areas did, such as the 
position in memory that string variables are to be found. If your 
program has stored a variable such as A$, the computer must keep a 
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check on where it is stored in memory, so it can be recalled. No two 
progams will ever be the same length so the data will never be 
stored in the same place, the work area contains the address 
(pointer) to where they will be found in RAM. These areas are 
detailed more fully in chapter 8. 

The area commencing at 6BCFhex (27599dec) is where Basic programs 
are stored from, either loaded from tape or typed in directly from 
the keyboard, they gradually grow upwards in memory reducing the 
amount of free memory remaining. Don't worry there's an awful lot of 
memory in the 700. 


TOOLKITS 


Toolkits, unlike their name suggests are not a mixture of 
screwdrivers, pliers etc., but tapes with extra commands which can 
be appended to S-BASIC to make the Interpreter even more powerful. 
Usually it will be possible to save the appended version onto one 
tape to make future loading simpler. 

One such Toolkit is BAS-MOD which was specifically written for the 
MZ-700 series. Here are a few of the additional commands it 
contains:- 

a) IF..THEN..ELSE_which is an improvement on the IF..THEN 

command which normally ignores any instruction after THEN if 
the IF argument is not true and the program would jump to 
the next line. 

b) AND..OR..NOT. ..although it is possible to use AND and OR in 
S-BASIC by putting the arguments in brackets and using the + 
or - signs, NOT is not included, and it is more explicit to 
be able to enter them directly. 

c) GOTO or GOSUB..LABEL. ..which allows one to specify by the 
LABEL statement the area where the program should jump to. 
It makes programming more explicit and debugging far easier 
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as one the can enter GOSUB PRINT TITLES instead of G0SUB1200 
and the subroutine will start with LABEL PRINT TITLES. If 
your program contains several jumps one will see at a glance 
where it is going. 

d) WHILE..WEND_although similar to the FOR..NEXT loop it will 

only execute if the WHILE argument is true, FOR..NEXT will 
always execute once regardless of the argument. 

e) REPEAT..UNTIL_similar again to FOR..NEXT except that the 

argument for repeating can be more complex. One could repeat 
UNTIL A=10 OR A<1 OR A»20. Both of these additions reduce 
the amount of extra lines one would have to write if only 
using FOR..NEXT loops. 

The addition of a Toolkit should not reduce the amount of free 
memory that the user has, as most are written into the existing area 
taken up with the Basic Interpreter, one of the advantages of Basic 
being in RAM, as it can have extra code written to it. 
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2. Features of S-BASIC 


2.1 RESERVED WORDS 


Most of the Reserved Words or Commands in Basic VI.OA are detailed 
fully in the Owners Manual, but there are a few which may require 
further explanation. 

LIMIT (abbreviated format LIM.) 

This command is always either followed by a decimal number:- 
LIMIT 49175 

or a hexadecimal number preceeded by the $ sign:- 
LIMIT $C017 

or by a variable, already assigned a value, i.e. A=49157:- 
LIMIT A 

It is used to block off the upper part of RAM Memory for use by an 
assembly language routine. One reason for a Basic program containing 
such a routine can be to give greater effects to a games program for 
faster display on the screen, or another could be to include a 
routine which Basic does not contain and which the programmer added 
to enhance a program. Programs containing these routines execute far 
more quickly by using assembly code. You will not be able to write 
such routines without a knowledge of assembly language, but that 
will not stop you entering and running a program which you see 
listed in a magazine, provided it was written for the MZ-700. The 
first program on the Applications side of the Basic tape contains 
such a routine and the LIMIT is set to $9FFF in line 100, the 
assembly routine is READ from DATA statements at the end of the 
listing and POKEd into this blocked off area above $9FFF in lines 
150-170. The routines are then called into operation by the 
USR($A000), which is one byte above the LIMIT previously set. 

The reason for blocking off the top of memory in this way is because 
as a program is running certain data relating to it is stored from 
the top of memory downwards, if the top of memory is temporarily 
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lowered then the assembly routine will be safe from being 
overwritten during program execution. 

LIMIT MAX (abbr. format LIM MAX.) 

Must always be entered after running a program which contained a 
LIMIT statement, as entering NEW or LOAD will not clear the memory 
above the LIMIT set. If one is not sure if the previous program 
contained an assembly routine try entering PRINT SIZE and if a lower 
figure than 36588 is displayed then it probably did and LIMIT MAX 
should be entered to raise the top of memory to normal. 

DIM 

All variable arrays must be DIMensioned prior to use. Some Basics 
allow up to 10 subscripts without the use of DIM, but the MZ-700 
does not, so however small the array DIM must be used first. 

PEEK 

This command allows the user to find the value that a particular 
byte contains, and returns the decimal value, it is used extensibly 
in programs which address the screen area directly within the Video 
Ram area, which is described later, to find which character is 
printed in a particular position on the screen. 

POKE 

Is used to alter the contents of memory, and must be used with care. 
It is also used when direct screen addressing to alter the display, 
or to enter assembly code routines into memory. 

N.B. One does not need to enter the address for each byte if they 
are consecutive alterations. i.e. To print ABC at the beginning of 
the Video Ram area (at the top left corner of the screen) it is not 
necessary to enter POKE 53248,1:POKE 53249,2:POKE 53250,3 
All that is needed is POKE 53248,1,2,3 for the same result. 


CONSOLE (abbr. format CONS.) 

Is used to print to certain sections of the screen area, leaving the 
remainder intact. It can be followed by either two or four 
parameters:- CONSOLE 5,15 or CONSOLE 5,15,10,20 
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or by variables already assigned a value:- 
A=5:B=15:C=10:D=20 
CONSOLE A,B,C,D 

The first parameter is the starting line number, 0 being the top 
line. The second is NOT the last line number to be printed on, but 
the number of lines one wishes to be printed. So in the above case 
printing would commence on line 5 and stop on line 20 of the screen. 
Similarly with the third and fourth parameters, printing would start 
on column 10 and continue across the next 20 columns to position 30 
across the screen, leaving whatever had been previously displayed 
around this area intact. While this command is in operation entering 
CLR or HOME will position the cursor at the top left corner of the 
specified area and NOT the top corner of the full screen, in order 
to achieve a complete clear screen one must enter CONSOLE with no 
parameters. 

To illustrate enter the next one line program:- 
10 FOR X=1 TO 400 :?X;:NEXT 
And RUN 

Now add line 5:- 
5 CONSOLE 5,15,10,20 
and RUN 

Entering SHIFT/CLR will only clear the centre area. 

N.B. The wrapping around of the screen effect described on page 129 
of the Owners Manual by pressing SHIFT will either the cursor up or 
down key will only take effect if CONSOLE has been entered without 
parameters. Even if the largest print area of CONSOLE 0,25,0,40 has 
been specified the wrapping around will not take effect. 

PRINT USING (abbr. format ?USI.) 

Is an extremely useful addition to the MZ-700 extended Basic, there 
are however some points to be aware of. 

If one has specified PRINT USING "###.## " and the number to be 
printed is larger that three digits before the decimal point, 'Over 
flow error' will be screened. If the number exceeds two digits after 
the point (i.e. 123.456) it will be either rounded up, in this case 

to 123.46, or rounded down if the last figure is less than 5. (i.e. 
123.454 becomes 123.45) 
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PRINT USING " ££###.## " will print the £ immediately before the 
first digit, but specifying PRINT USING "£###.##" will print the £ 
always in the same column regardless of the size of the number to be 
printed. The TAB function can be included with this command to make 
monetary output exceptionally neat. i.e. 

PRINT TAB (28) ;USING"*-!###. #* " ; a 


There are some Reserved words which are not shown in the manual but 
nevertheless still function. 

CLS 

Will perform a Clear Screen, either within a program or in direct 
mode. It does NOT need to be prefixed by PRINT. 

HEX$ 

PRINT HEX$(49151) will convert the decimal number in brackets to 
hexadecimal, in this case BFFF would be printed. 

One can convert from hex to decimal by entering PRINT$7000 and 28672 
will be displayed. The highest hex number that can be converted is 
$8000, don't go higher it will be incorrect. 

BOOT 

Has the same effect as pressing the Reset button, and swaps in the 
ROM Monitor and passes control to it, at address 0000. 

TRON/TROFF 

When trying to debug a program entering TRON before RUN will display 
the correct line number being executed by the program, and is useful 
in tracing bugs. In its present form the line numbers are printed at 
the current cursor position, which is not too clear when there is a 
lot of printing to the screen taking place. In chapter 3 there is an 
alternative routine which can be added to S-BASIC which will display 
the line number in the top left-hand corner of the screen 
irrespective of the cursor position. TROFF will cancel the function. 
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2.2 TONE GENERATOR 


The Tone Generator, which is responsible for the sometimes weird 
sounds heard on games programs, is dependant on the values contained 
in the two bytes OA39 and 0A3A Hex (2617 and 2618 Dec). Values are 
POKEd into these addresses, usually within FOR..NEXT loops, and 
USR(68) turns the generator on and USR(71) turns it off. The best 
way of deciding which type of sound you might like to add to a 
program is by experimenting with different values POKEd into the two 
addresses. 

Location 2618 controls the main pitch of the note and 2617 divisions 
within that note. If you enter the next short program and RUN, 
afterwhich we will alter it. 

10 B=1 

30 FOR A=1 TO 255 
40 POKE 2617,A 
50 POKE 2618,B 
60 USR(68) 

70 NEXT A 
100 USR(71 ) 

Now enter RUN 

You should have heard a high note diminishing for just over a 
second. 

If you add STEP 0.5 to the end of line 30 the duration will be 3 
seconds. 

The variable B has the value of 1, alter line 10 tor- 

10 FOR B=1 TO 3 

and line 70 tor- 

70 NEXT A,B 

and RUN 

Now alter line 10 tor- 
10 FOR B=1 TO 10 

and RUN. You should notice that the higher the value of variable B 
becomes so the lower the note gets. Similarly the loops can be 
altered to decrement instead, which will cause the note to get 
higher in the scale. 
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Alter lines 10 and 30 tor- 
10 FOR B=10 TO 1 STEP-1 
30 FOR A=255 TO 1 STEP-10 
and RUN 

Altering the listing to the following will produce a sound similar 
to a Police siren. Change or add these lines:- 
10 B=3 

20 FOR C=1 TO 10 

30 FOR A=255 TO 1 STEP-7 

70 NEXT A,C 

RUN 

The loop in line 20 controlled the number of times it was heard. 
Experimenting with different values for A and B will produce a 
variation of sounds. 

Here are a few examples which generate various sounds. 

Enter NEW 
10 FORA=1T04 
20 FORB=1T0150 
30 POKE2618,B 
40 USR(68) 

50 NEXTB,A 
60 USR(71 ) 
and RUN. Now tryr- 
10 FORA=1T06 
20 FORB=1TOI0 
30 POKE2617,1 0-B 
40 POKE2618 ,B 
50 USR(68) 

60 NEXTB,A 
70 USR(71) 

Using single statements on each line makes the listing more clear, 
but it is wasteful on memory as each line uses several extra bytes 
to store the line number and pointers to the position of where in 
memory the next line starts, so where possible make use of multi¬ 
statement lines such as on the next page. 
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Enter NEW and without spaces the next single line program. It should 

appear on screen like this:- 

1OFORA = 25 5TOOSTEP-12:POKE2617,A:POKE2618 

,1:USR(68):NEXTA:MUSIC"R2":FORB=- 255T025 

5STEP6:A=ABS(B):POKE2617,A:POKE2618,1:US 

R(68 ) :NEXTB:USR(71 ) 

That should have simulated a Wolf-whistle. 

Did you know that a single program line can be up to 255 characters 
long on the 700? 

And now a Trimphone. Enter NEW and this one liner:- 
1OFORA=1T06:FORB=1T02:POKE2618,2:FORC=1T 
015:POKE2617,80:USR(68):FORD=1T09:NEXTD: 

POKE2617,255:USR(68):F0RE=1T09:NEXTE,C:M 
USIC"R3":NEXTB:MUSIC"R7":USR(71 ):NEXTA 

I love these one line programs. 

Try altering the values for the different variables and compare the 
results. The MUSIC statement used above simply plays a note, in this 
case a Rest (silence), for a duration of 7 (1/2 a note, see page 66 
of the Owners Manual). 

If one omits to turn off the generator by not entering USR(71) the 
tone will continue, even after the READY message has been screened 
at the end of a program. Another use could be to attract the 

attention of the user when an error has occurred or when immediate 
input from the keyboard is required. The tone could continue until 
the error has been corrected or the correct key pressed. Afterwhich 
the tone could be turned off by USR(71 ) in the following line of the 
program.:- 
200 POKE261 8,2 
210 USR ( 68) 

220 GET A$:IF A$=""THEN220 
230 USR(71 ) 
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2.3 VIDEO RAM AREA (V-RAM) 


This area of memory stores the details of each individual location 
of the screen, in respect of characters and colours. 


2.3.1 Character V-RAM 


Usually any printing to the screen is achieved through using PRINT 
statements. While this is adequate for normal applications, it 
becomes too slow for games programs when printing is required in 
several directions on the display, in this case it is preferable to 
display the chosen character to be printed by directly POKEing it 
into the display area of memory. This part of memory is called the 
Video Ram area (V-RAM), and is responsible for storing the character 
each position of the screen area contains, it is described briefly 
on page 128 of the Owners Manual. 

The screen is made up of 25 lines of 40 columns each, that is 1000 
screen locations, that can be seen at any one time. The Character V- 
RAM area holds 2000 bytes which allows it to store two full screen 
displays, scrolling the display will show the complete 50 lines 
which make-up 2 screenfuls. 

The address of the top left position of the screen is $D000 hex or 
53248 decimal and the last screen location, bottom right, is $D3E7 
or 54247 decimal. It is important to remember that however many 
lines are scrolled up or down the display always has position 53248 
as the top left. To illustrate if one enters the 'CLR/SHIFT 1 keys to 
clear the screen and moves the cursor down the screen about halfway 
and enters POKE53288,26 and CR, the Z character is displayed on the 
left position of the second line of the screen. The top position is 
53248 so the second line will be 40 positions higher at 53288. Enter 


?PEEK(53288) CR and 26 will be printed as the value of the character 
at position 53288. Hold down the 'SHIFT' key and press the cursor- 
down key just once so that the 'Z' moves up one line to the top left 
position, now enter ?PEEK{53288) CR and 0 will be displayed as 
location 53288 now has nothing there, the 'Z' has moved into 
location 53248, top left. Entering ?PEEK(53248) CR will confirm this 
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by displaying 26, which is now the value it contains. POKEing can be 
made to the area after $D3E7 (54247) but it will not be displayed 
until the screen is scrolled. If one clears the screen and enters 
POKE54287,26 which is 40 positions higher than the bottom right 
location of 54247, the letter 'Z * will not be visible until the 
screen has been scrolled up one line. Furthermore notice that 
POKEing to the screen area does not move the cursor, it remains 
where it was. It must also be noted that all POKEing to this area 
one must use the Display Code table and NOT the ASCII code table. It 
does not matter whether one uses Hex or Decimal numbers when POKEing 
and PEEKing the screen area, one can mix them in the same statement 
if desired. The following statements are all valid and they all 
print the letter Z in the top left screen position:- 
POKE $D000,$1 A POKE $D000,26 POKE 53248,$1A POKE 53248,26 
The Display Code table in the Manual has the values in Hex, but if 
one prefers working in decimal the table has been re-printed in the 
Appendix of this book with the decimal values, along with the ASCII 
Code table. 

To demonstrate here is a simple program where the figure of a man is 
falling down the screen and then moving off to the right. Do not 
enter the REMarks they are for explanation only. 


10 PRINT"®" 

: REM 

20 TL=53248 

: REM 

30 P=0 

: REM 

40 GOBI IB 1.40 

: REM 

50 POKE TL+P,0 

s REM 

60 IFP=960THEN90 

s REM 

70 p=p+40 

: REM 

80 G0T040 

: REM 

90 P=P+1 

: REM 

100 G0SUB140 

sREM 

110 IFP=999THENEND 

s REM 

120 POKE TL+P? 0 

: REM 

130 GOTO90 

: REM 

140 POKE TL+P,202 

: REM 

150 FORDL= 1 ”10200 

: REM 


160 NEXTDL 
1 7u RE T URN 


CLEAR SCREEN 

TL=T0P LEFT OF SCREEN=5324B 
P=Positiori Counter 

SUBROUTINE TO POKE MAN INTO NEW POSITION 

ERASE MAN FROM OLD POSITION 

DON'T PRINT DOWN FURTHER THAN THIS 

ADD I LINE TO OLD POSITION (40=1 COMPLETE LINE) 

SO BACK AND PRINT AGAIN 

MAN ON BOTTOM LINE. ADD 1 TO P TO MOVE RIGHT 

GO AND PRINT IN NEW POSITION 

PRINT NO FURTHER 

ERASE FROM OLD POSITION 

GO BACK AND PRINT AGAIN 

SUBRTNE TO POKE MAN (202) INTO NEW POSITION 
DELAY LOOP. TO SPEED-UP MAKE 200 LESS 



One can see that the location to POKE to can be a variable, already 
assigned a value, or a calculation such as line 50. Also on 
completion the cursor has remained at the top of the screen. 

If lines 150/160 are deleted one will see just how fast POKEing to 

the screen really is. 

This next listing shows how one can move a character around the 
screen by calculating the position to move to. The man is originally 

placed at position 53748 in line 20 which, as the screen has 1000 

positions adding 500 to the top left position of 53248, puts it in 
the centre of the screen. 

The GET statement is used to find which way we want the man to move 
using the keys:- 

Q=north-west W=north E=north-east 

A=west D=east 

Z=south-west X=south C=south-east 

Lines 60-130, depending on the key entered, decide which position to 
re-print the man. If W is pressed then it must be moved one line 
upwards, which is 40 positions lower in memory, so 40 must be 
subtracted from variable P for it's new position. Similarly if X is 
pressed then it must move down one line and 40 is added to P. The 
moves to East and West are probably the easiest to calculate as the 
man either moves one position left or right, so P would have either 
1 subtracted or added to it. It's the diagonal moves which require a 
little thought, pressing Q for the direction of North-West means 
subtracting 41 from P, and W for North-East means subtracting 39 as 
one line directly above the old position is -40, so either side of 
this becomes -39 or -41. And the same applies for South-West and 
South-East only this time we add either 39 or 41. 

The variable PP in line 50 is the previous position of the man 
which, if one of the only 8 keys the program searches for has been 
pressed, must be POKEd with zero to erase it as if it wasn't the 
screen would soon be plastered with little men. Line 150 checks if 
the man is either at the top or the bottom of the screen by testing 
P to see if it is smaller or larger than the screen parameters, and 
if so then the program jumps back to the GET line. This line is how 


the 700 executes the OR statement, by putting both arguments within 
parentheses coupled with the + sign, it is explained more fully in 
the chapter on Program Tips. 

Enter NEW and CR. 

10 PRINT'S" 

20 P=3374B 

30 POKER,202 

■in GETA*:1FA*=""THEN40 

SO PP- ; r' 

60 I FA$==" W " THENP=P—40* GOTO 150 
70 IFA*= " Q " THENP=P-41 *■ GOTO 150 
80 If-A$~"A"THENP=P-1 • GOTO 150 
90 IFA*="Z"THENP=P+39:GOTO150 
1.00 l FA*= " X " THENP=P+40: GOT0150 
]10 IFA*="C"THENP=P+41!BDT0i50 
120 ifa*="D"THENP=P+1:GOTO150 
130 IFA$ = "E"THENP=P—39:GOTO 150 
140 GOT040 

.150 IP ( P<53248 ) + t P>54247 ) THENP-PPs B0T040 
160 POKEPP,O 
170 GO TO30 

Locations can be checked prior to moving to them to see what they 
contain by using the PEEK statement. If one adds these lines it will 
be seen that the man will only move if the position is empty:- 

! 1 FORX = 1 TO100 

12 B*1NT(RND(1)*999)+1 

13 P0KE53248+B,83. 

14 NEXT 

155 I FP'EEK (P > < >OTHENP-PP » G0T040 

Line 12 randomly selects values between 1 and 1000 for variable B. 
Line 13 POKES the start of V-RAM (53248) plus B with the Heart 
character, and line 14 loops back for 100 times. This will print 
Heart signs at random over the whole screen area. Line 155 checks 
that the location to move to is empty by PEEKing it, and if it 
contains a character the man will not move and the program will go 
back to the GET statement. There are further listings using POKEs to 
the screen area at the end of this chapter. 
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2.3.2 Colour Data V-RAM 


It follows that if each position of the screen can store it's 
contents somewhere in memory that it also must store it's relative 
colour co-ordinates too. Whereas the characters were stored from 
$D000 onwards the colours for each screen location start at $D800 
hex or 55296 decimal which is the top left position on screen and 
the bottom right location is $DBE7 or 56295. As before the area is 
two screenfuls of 50 lines by 40 columns. 

To discover what character is at the top left of the screen one 
would enter ?PEEK(53248), and to find the colour of the same 
position one would enter ?PEEK(55296). It would be ideal if these 
starting locations were round figures, but that would be too easy. A 
good tip is that the Colour V-RAM is always 2048 higher than it's 
equivalent Character V-RAM location. Obviously each screen position 
can be allocated a different colour combination, whether it is by 
the COLOR or the POKE statements. It must be remembered that if one 
PEEKs a location to find out what character it contains the decimal 
value will be returned, and it is the same with the Color V-Ram 
which can at first sight cause confusion. 

If the screen is printing white characters on a blue background 
any location PEEKed within 55296 and 56295 will return the value 
113, this is because each hex number contains two figures, from 00 
to FF hex, and in the case of the Color V-Ram the first of those 
figures represents the character colour and the second the 
background colour. Hence with the colours set at white on blue 
background the hex value will be 71, 7 being white and 1 being blue, 
but this is hex not decimal so when PEEKed the decimal equivalent is 
printed, which is of course 113. There is a conversion table in the 
Appendix of this book. Similarly if the screen was printing blue on 
a light blue background the value returned for ?PEEK{55296) would be 
21, which is the decimal of 15 hex (1=blue and 5=light blue). 
Obviously if one wants to POKE a position with a different colour it 
is easier as you can enter the hex number anyway, POKE55296,$62 will 
alter the top left screen position to printing yellow on a red 
background, which is easier than converting to decimal each time. 
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2.3.3 V-RAM Additional characters 


Virtually hidden within your MZ-700 are an additional 255 
characters to add to those already in the Display Code table. The 
Japanese version of the 700 does not contain them, that is probably 
why they aren't mentioned in the Owners Manual. The characters, 
which are re-printed in the Appendix of this book, are POKEd onto 
the screen in the same way the standard set of Display code 
characters are but first certain changes have to be made to the 
contents of the addresses of the Colour V-RAM area. 

To re-cap on the Colour V-RAM it must be remembered that the 
highest value a colour can be is 7 (white), therefore the highest 
value a colour co-ordinate of the screen should ever be is 77 hex, 
which would be printing white characters on a white background, 
which would be useless anyway as one could not see it, but 
nevertheless normally it shouldn't hold a higher value. The second 
or alternate set of Display codes are selected by setting bit 7 of 
the colour V-RAM address to 1. For those of you who are yet 
uninitiated into the mysteries of Assembly language this is equal to 
adding 80 hex or 128 decimal to the value of the colour stored at 
that location of the screen. 

Regardless of the current colours enter COLOR,,7,1 and 'CR' and then 
SHIFT/CLR. We know that the screen is printing white on blue so all 
locations within the Colour V-RAM area will contain 71 hex (113 
dec). With the cursor on the top line press the 'ABC' keys without 
'CR' key and move the cursor down screen and back to the leftmost 
column by the cursor keys. If one alters the top left hand Colour V- 
RAM position ($D800 or 55296) from 71 hex to FI hex that square will 
alter from displaying the character from the first Display set to 
the alternative set. In this case the alternate equivalent is 'A' in 
outline form. Enter POKE55296,$F1 and 'CR', and the 'A' has changed. 
If you wish to stay in decimals remember the current colour is 113, 
so adding 128 it becomes 241, therefore the above could be entered 
as POKE55296,241, for the same result. To alter all three letters on 
the top line enter POKE55296,241,241,241 and 'CR'. That is a 
pleasant addition in that if consecutive bytes are being altered one 



does not need to nominate the address for each POKE, only the first 
address. 

One can also turn certain areas of the screen on, so that the 
characters POKEd to those positions will subsequently be of the 
second Display code, but one must first work out their addresses 
correctly. Taking the top square in the Character V-RAM as 53248, 
the tenth line down will commence at 53248+10*40=53648. In order to 
display at this position a character from the second character set 
the equivalent location in the Colour V-RAM must be calculated in 
the same way. The top square in Colour RAM is 55296, similarly line 
ten will start at 55296+10*40=55696, so this location must have 80 
hex (128 dec) added to it’s current value, now all POKES to 53648 
will be in the second character set. The Hangman program uses this 
method as will be seen at the end of this chapter. 

The Display code tables have similarities in that the capitals A 
to Z and the numerals 0 to 9 have the same positions, therefore a 
screen message using capitals can be displayed using the second 
(outline) character set. The byte which stores the current colours 
to print is location 005D hex (93 dec), at the moment it should be 
71 hex (113 dec), adding 80 hex (128 dec) to it's present contents 
will display the next PRINT statement in the second character set. 
Enter:- 

POKE$5D,PEEK($5D)+$80:PRINT"SHARP" 

This is handy for highlighting a message, furthermore on completion 
location 005D returns to it's former value so any subsequent PRINTS 
will be normal. The above line is simply PEEKing location 005D and 
adding 80 hex to it. No matter what colours were being printed at 
that time they would remain the same. It could also be entered as:- 
POKE93,PEEK(93)+128:PRINT"SHARP" 

If a games program is purely using characters from the second 
character set then the Colour V-RAM display will need to be altered 
throughout. Once the colours have been decided this can be done with 
a FOR..NEXT loop. If it was to be white on blue a line could be 
entered:- 
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FOR X=55296 TO 56295:POKEX,241:NEXT 

And all characters POKEd to the Character V-RAM area (53248 to 
54247) will be in the second Display Code character set. In these 
examples we have only dealt with one screenful of locations, and it 
should be remembered that both Character and Colour V-RAM hold an 
additional 1000 locations, round the back of the display, and these 
can be altered too for greater effects when scrolling up or down 
takes place. 

Character V-RAM is from D000 (53248) to D7CF (55247) and Colour V- 
RAM from D800 (55296) to DFCF (57295) making 2000 bytes in each. 

The following charts are for converting the colours to display the 
second character set. 


** 

DECIMAL** 



CHAR 

ACTE 

R S 



B 

Black 

Blue 

Red 

Purple 

Green 

L.Blue 

Yellow 

White 

A 

Black 128 

1 44 

160 

176 

1 92 

208 

224 

240 

C 

Blue 129 

1 45 

1 61 

1 77 

1 93 

209 

225 

241 

K 

Red 130 

146 

162 

178 

194 

210 

226 

242 

G 

Purple 131 

1 47 

1 63 

1 79 

1 95 

21 1 

227 

243 

R 

Green 132 

148 

164 

180 

1 96 

212 

228 

244 

0 

L.Blue 133 

149 

1 65 

181 

197 

21 3 

229 

245 

U 

Yellow 134 

1 50 

166 

182 

198 

21 4 

230 

246 

N 

White 135 

1 51 

1 67 

183 

1 99 

215 

231 

247 


D 


** 

HEXADECIMAL** 



CHAR 

ACTE 

R S 



B 

Black 

Blue 

Red 

Purple 

Green 

L. Blue 

Yellow 

White 

A 

Black 80 

90 

A0 

B0 

CO 

DO 

E0 

F0 

C 

Blue 81 

91 

A1 

B1 

Cl 

D1 

El 

FI 

K 

Red 82 

92 

A2 

B2 

C2 

D2 

E2 

F2 

G 

Purple 83 

93 

A3 

B3 

C3 

D3 

E3 

F3 

R 

Green 84 

94 

A4 

B4 

C4 

D4 

E4 

F4 

O 

L.Blue 85 

95 

A5 

B5 

C5 

D5 

E5 

F5 

U 

Yellow 86 

96 

A6 

B6 

C6 

D6 

E6 

F6 

N 

D 

White 87 

97 

A7 

B7 

C7 

D7 

E7 

F7 
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HANGMAN 


The unused letters of the alphabet are printed on the third line of 
the screen, in fact the letter 'A' is printed in position 53338 of 
the Character V-RAM area. This position is calculated by remembering 
that the top left position is 53248, so the start of line two is 40 
positions higher at 53288, likewise the third line commences at 
53328, 40 higher still. The letter 'A' is printed 10 places in from 
the left, so it's position on screen is 53328+10=53338. When you run 
the program you will notice that the letter selected moves from the 
unused to the used line. We know, by looking up the decimal ASCII 
code value in the Appendix, that the letter 'A' has a value of 65. 
If we deduct 65 from the position of 'A' (53338) we get 53273, so in 
program line 300 we POKE 53273 plus the ASCII value of the letter 
entered. If it was the letter 'A' it would be 53273+65 making 53338, 
so we POKE 53338,0 which places a space where 'A' was in the unused 
line. In order to re-print it two lines lower on screen, in the used 
section, we add 80 to the original marker of 53273, making 53353 and 
once again add the ASCII value to this figure. Here a slight problem 
is encountered as although the position is calculated quite easily, 
the character we wish to POKE into this position cannot be done by 
using the ASCII code, we must use the Display code which as one will 
see have different values. Luckily the letters A-Z are always 64 
lower in Display code than there ASCII equivalent, therefore in line 
320 we POKE the calculated position with the ASCII value minus 64 to 
display the equal letter. The head on the gallows is from the second 
Display code set and these four locations are turned on to that set 
in line 150 by POKEing them with 241, which maintains the white on 
blue colours but means all POKEing to these squares will be in the 
second set of characters. The drawing of the gallows is calculated 
from a seed position of 54078 in line 550 and then drawn by READing 
DATA statements which contain, in groups of two, the related 
position from 54078 and the actual display code of the character to 
be displayed. Line 450 prints at 54078+40 character 112, followed by 
54078+41 also character 112, which will print them next to each 
other in a straight line. One can also see how the face changes in 
lines 510-520 as the trap opens. 
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10 COLOR,,7,1 
20 TEMPO? 

30 DIMA*(26),H*(26) 

40 PRINT"®" ! : PRINT! 1 ,73 "6SJ ENTER YOUR WORD (don't, let anyone see)" 
50 PRINT12,73TAB(8)5 " 26 Letters is Maximum " 

60 PRINT 
70 INPUTY* 

BO B=LEN(Y* > 

90 F0RX=1T0BSA*(X)=MID*(Y*,X,1) 

100 IF(ASC(A*IX> ><6S>* (ASCCA*(X>>>90)THENQOTO120 
110 NEXTX:GOTO140 

120 PR INT 17,23"WORD MUST ONLY CONTAIN A to Z" 

1 30 MUSIC " - B 7RC 7 " s G0TU40 

140 PRINT"®"!:PRINT!1,73TAB(7)5" THE WORD HAS"?B!" LETTERS " 

150 F0RX=55929TD55969STEP40: POKEX,241,241:NEXT 
160 PRINT"UUNUSED: -EEABCDEFGHI.3KLMN0PQRSTUVWX YZ " 

170 PRINT:PRINT"BEUSED:-" 

180 CURS0R6,8:FORX = 1TOB:PR INT"-"j:NEXTX 
190 G=1 = T=0 

200 CURS0R2, 10:PRINTC7, 13 "PLEASE PRESS LETTER No" 5(3!" EE"; 

210 GETN*:IFN*=""THEN210 
220 IF(ASC(N*> <65) + (ASC(N*> >90 > THEN210 
230 FDRX=1T0LEN(AG*> 

240 IFN*=MID*(AG*,X,1> THEN270 
250 NEXTX 
260 G0TD290 

270 CURS0R2,10«PRINTED,73"THAT LETTER HAS BEEN TRIED" 

280 FQRX=1T010:USR(62):NEXT:G0TD200 
290 AG*=AG*+N* 

500 PR INTC 7,13N*:PUKE53273+ASC <N*>,0 
310 P0KE55401+ASC (N't) , 242 
520 P0KE53353+ASC(N*),ASC(N*)-64 
330 B0SUB400 
:;;40 I FV=0THENG0T0360 
(SO MUSIC"+#A+A":B0T0380 
560 B0SUB550 
3 70 I Ft.=99THEN600 
580 IFT=BTHEN590 
390 G=G+1:G0T0200 
400 0=0 
410 FORX = 1 TUB 

420 IFH*(X)=N*THENV=i:GDT0440 
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430 IPN$=A* < X)THENCURS0R0,B:PRINTTAB< X+5>;N*:V=V+1:T=T + 1:H* < X > =N* 

440 NEXTX:RETURN 

450 DATA40,112,41,112,42,112,43,112,44,112 

460 DATA-1,61,-41,61,-81,61,-121,61,-161,61 

470 DATA—201,61,-241,61,-2B1,61,-320,60,-280,1 IB 

480 DAT A—319,60,-31B,60,-317,60 ,-276,113,-236,113 

490 DATA—197,145,-196,146,-157,149,-156,150,-116,0 

500 DAT A-117,22B,-116,230,-77,23B,-76,23B,-75,0 

510 DA 1 A—19/,147,-196, 148,-157,151,-156,152,-117,227 

520 DAI A-197,147,-196,148,-157,153,-156,154,-116,227 

530 DATA—157,155,-156,156,42,115,43,0,44,61 

540 DATA44,O.45,113,0,99 

550 2=54070 

560 FDRX=lT05sREADK,L 

570 IFL=99THENRETURN 

5B0 PDKEZ+K,L:NEXTX:MUSIC"~G1":RETURN 

590 CURSORO,lO:PRINT!1,73" WELL DONE..THAT TDOK ,, ;G:‘' GUESSES " : G0T0690 

600 P0KE55929,113,113:P0KE55969, 113,113 

610 FORX=53881T054161BTEP40:POKEX,0, 1131 NEXT 

620 8=2 

630 FORA=1T0240STEP2 
640 POKE2617,A:P0KE2618,B 
650 USR(68) 

660 NEXTA 
670 USR(71> 

680 CURSDRO,11:PRINT!1,73"NO IT WAS ";Y$ 

690 PRINT!7,23"6! ANOTHER GO? (Y/N) “ 

700 MUSIC"A5B5+C5 " 

7 10 GET 2$: I FZ*="" THEN710 
720 IFZ*="N"THENEND 
730 IF 2*="Y"THENRUN 
740 GOTO?10 

The next listing Connect 4' is for two players each trying to get 
four counters in a row. It also uses direct screen addressing to the 
V-RAM area to draw the grid in lines 200-320. As the counters stop 
on every other line, when checking for a win, the positions above 
and below the last counter must be in multiples of 80 as in the DATA 
statements in lines 800-820, where checking below it's position 
would mean PEEKing 80 for 1 line, 160 for 2 lines etc. Similarly 
adjacent columns being 2 squares apart are 2,4 and 6 as in line 830. 
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10 GOBUB1190 

20 DIMNA*(2 )5 C(9 >,X(9),B<3>>FW(4)>S<2> 

30 F0RN=1TD2 

^ j ^ „„ irj 0 «=; 0 

SO | - R1 NT " [5" j s PR I NT [1.7 I" WHAT IB YOUR NAME PLAYER" 5 N5 " ? 
60 INPUTNA*IN) 

7 o "HELLO'D " +NA* (N) 

80 FORI** 1TDLEN (H*> > 

90 A-ABCtMID*<N*,L,1> > 

100 P-X+L-20#(A—64) 

110 M— X+L 

120 P0KEM+80,A—64 

130 FORJ -MT0PSTEP--40 

140 IFJ --PTHENPDKEJ , 248 s GOTO 160 

150 POKED,127 

U-0 NEXTJ.L 

1 7 Ci USR (62) s KOROL 5 * 1T'03000s NEXTDL 

1 BO NEXTN 

190 14=1 

200 RESTORE 

210 PRINT"B" 

220 FORA—1T09 
230 READ X 
240 F0RB -1.T0B 
230 POKEX.121 
260 X=X+40 
270 PDKEX.189 
2B0 X-X+40 
290 NEXTB 


" :USR(62)sPRIN 


300 

' 10 



NEX TA 

DATA53426,53428,53430,53432,53434, 
DATA55474,55476,55478,554B0,55482, 


53436,53438,53440,53442 
554B4,55486,5548B,55490 


330 RESTORE 
340 FORA-1TOB 


350 READX 
360 FORB“ITOB 
370 POKEX-t-41,120 
380 X=X+BO 
390 NEXIB,A 
400 RESTORE 
410 AA=33 
420 FGRA=1TOB 
430 READX 

440 POKEX +1929,*D1 *POKEX-119, AA 
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450 AA-AA+l 
460 NEXTA 

470 CURSOR 19< 20: PRINTII1,73"! 2345678" 

4.80 PR I NT " fflSCORE " 

490 CURSORO,1:PRINTS(1> 

500 CURSORO, 3: PRINTS(2 > 

51 O CURSORS , 1: PR INTNA* till." IS • " 

5,0 CURSORS,3tPRINTNA*i2)f" IS 0" 

530 CURSORO,22:PR I NT SPC(30) 

540 P=N+70 

550 CURSORO,11:PRINT"WHICH COLUMN <lto0)" 

560 PRINT:PRINTSPCtIB) 

570 PR INT"IMKE" ; NA* <N): USR ( 62 > 

580 BETA*:IFA* =""THEN580 

590 IF ( ASC (A* ) 49 > + < ASC (A*) >56) THEN8DT05B0 
600 PRINT "Sill COLUMN ";AS?" 

610 PR INTsPRINT SPC(18) 

620 RESTORE 

630 FORA=1T09 

640 READX(A):NEXTA 

650 FDRA^1T09:READClA):NE X TA 

660 AA-OAL(A*> 

670 X=X(AA)-79:C=C(AA>-79 

6E0 I FI-'EEK < X +80) < >OTHENCURSOR8, 22 s PR I NT C 7, 2 3 " COLUMN IS FULL 
690 G0T0710 

700 MUSIC"-G2-C2"sFORDL=1TQ500:NEXT:G0T0530 
710 POK-EX, P: POKED, *51 
,'2.0 EQRDL- 1 TOlOOs NEXT 

7-'.0 IFPEEK < X+BO) =OTHENPOKEX, 0s POKED,*71* X=X+80: C=C+BOs G0T0710 

740 G0SUB7B0 

750 IF T L=4 THEN97O 

760 IFN=1THENN=2:G0T0530 

770 N=1:G0T0530 

7Bo CW=X:TL=1 

79o FW(TL)=CW 

800 DATABO,160,240,-80,-160,-240 
810 DATA7B,156,234,-78,-156,-234 
820 DATAB2,164,246,-82,-164,-246 
830 DATA2,4,6,-2,-4,-6 
040 FORV=1TD8 

1350 IFI NT (V/2) < >V/2THENTL" 1 
QfcO FORA=1T03 
B / u READS 1A) 

880 NEXTA 


:G0T0700 
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690 FDRA=1T03 

900 IK-PEEK (CW+B (A> > < >F'THEN9.50 

910 TL-TL+l 

920 FW ( 1 L> =CW+B (A) 

930 J f TL=4 rHENRETURM 
940 NEXTA 
950 NEXTV 
960 RETURN 

970 CURSORO,15:PR I NT"THE WINNER IB" 

9BO CURSDR4,17:PR 1 NINA*(N) 

990 S(N > —S(N > + 1 
1.000 F=0 
1010 Q— 74 

1020 1FF >= 1OTHEN1 100 
1C30 FORA=ll04 
1040 POKEFWlA >,Q:NE X TA 
1050 IJSR (62) 

1.060 F ORDL= 1TD400: NEXTDL 
10 70 IF0=74 T HENQ=PsGOTO 1090 
J080 0=74 

1 0-70 F=-F+ 1 s GOTO 1020 

1100 CURSORO,22:PRINTCl,71"ANOTHER GAME ";NA*(1);" & "|NA*<2> 
1110 PRINT Cl, 71" V./N " 

J 1 20 QETSS*s I FSS*= » " THEN 1 1 20 
l130 IFSS*="Y“THEN 1160 
Ji40 IFSS*="N"THEN11BO 
1 I 50 GOTO1120 
1160 IFN=1THENN=2 sRUN200 
1170 N=1:RUN200 

1180 PR I NT "SiTHANKB " 5 NA* «'!.>; " " 5 NA* (2) e MUSIC"C3D3F#3" : END 

1190 PRINT"B" 

1200 CURSOR 10,4s PR I NT C 5, 3" *»****Mm»*>s*#ss**s«>** " 

1210 CURSOR10,6:PR INT C 5, 3"C 0 N N E C T 4" 

1220 CURSOR 10, 8: PR I NT C 5, 3" ****W»WJW**WW»m*ll«*K " 

1230 FQRDL=1TD300:NEXT 
1240 PR I NT " WF DR 2 PLAYERS" 

1250 PR INT" KT HE FIRST TO GET 4 TOKENS IN ANY ROW" 

1260 PRINT"Bib THE WINNER" 

1270 PR I NT" |5£ 1THER HORIZONTAL, VERTICAL OR DIAGONAL" 

1280 FORDL®1T02000:NEXTDL 

1290 PR I NTC1,7 3TAB(B> 5 "B press 'CR’ to P1 ay " 

I !.i'0 OF TG*s IFQ*=" “THEN 1300 
1.310 lPASCai*)=13 THENRETURN 
172!.' 00101300 
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3. Basic Additions 


In this chapter there are several additional routines which can be 
added to S-Basic and saved onto a back-up copy tape. If you just 
wish to copy the Basic tape in it's original form without any 
additions, enter the routine below. 

3.1 S-BASIC TAPE COPY 

It is recommended that your original Basic tape be copied using 
the following procedure, and keep the original as a Master tape in a 
safe place away from magnetic fields and to use the copy for normal 
use, it could be quite expensive to replace the original. This 
routine requires that the 700 has just been turned on and that S- 
Basic has not yet been loaded. The display should be showing.- 
** MONITOR 1Z-013A ** 

★ 

With the cursor next to the asterisk enter:- 
MB000 and 'CR' 

The display will now appear:- 
B000 FF 

With the cursor next to the last F. Enter the values shown under the 
TO ENTER column followed by the carriage return key after each. 


DISPLAYED 

TO ENTER 

DISPLAYED 

TO ENTER 

B000 

FF 

CD 

B005 FF 

00 

B001 

FF 

27 

B006 FF 

C3 

B002 

FF 

00 

B007 FF 

08 

B003 

FF 

CD 

B008 FF 

11 

B004 

FF 

2A 

i . _ £ _ i- _3 . 

B009 FF 

* 

SHIFT/BREAK 


continue at top of next column * 

The cursor should now be flashing next to the asterisk. Place the S- 
Basic tape in the tape player and enter 

JB000 and 'CR' whereupon you will be prompted to press the PLAY 



button. When Basic has completed loading you will be prompted to 
'HIT ANY KEY 1 , but don't do it until you have placed a blank tape in 
the recorder. Then and only then press any key and the screen prompt 
will be 'RECORD. PLAY'. S-Basic will now be copied onto the new 
tap6. 

It will take six and a half minutes to save the back-up tape, this 
is because the MZ-700 records programs twice to be on the safe side. 
If the tape you use finishes before the 'HIT ANY KEY' message is 
screened again, provided it has been recording for at least three 
and a half minutes, you can use the 'SHIFT/BREAK' keys to stop the 
recording and you should still have the back-up copy on the tape, 
although it would be better to use a Cl 5 cassette and let the saving 
routine run it's course. When the message is screened again and if 
you only need one copy press the reset button on the rear panel 
which is the only way, apart from turning off, to break out of this 
routine. You can then enter 'J7D79' which will jump into Basic. 
Copying in this manner can only be carried out by modifying memory 
before Basic is loaded. 

3.2 ADDITIONS TO S-BASIC 

To alter the values contained in certain parts of RAM we shall use 
the RAM Monitor 'Memory set command' described on page 100 of the 
Owners Manual. When altering parts of memory it is good practise to 
check that one has entered the correct values by using the RAM 
Monitor Dump command, which will display the memory contents on 
screen for checking. First make sure that you are in RAM Monitor, 
enter 'BYE' if not, then entering 'D219B' and 'CR' will display 128 
bytes starting with 219B, whilst entering 'D219B 21A2' will just 
display a single line of eight bytes. If your 700 has the 
Printer/Plotter connected entering 1 PLOTON' before 'BYE is entered 
will also dump the contents to the printer simultaneously. One can 
enter 'P' when already in RAM Monitor, but the printout is much 
slower, and it is not displayed on screen, furthermore to abort the 
Dump, SHIFT and BREAK must be held down longer, until the print head 
has completed the current line of printing. 

In order to make the additional routines permanent on a back-up copy 
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Basic tape it will be necessary to use a different copying routine 
from that on the previous page. It is detailed in section 3.2.8 

3.2.1 Ready message 

This is a fairly simple alteration to make. The message 'Ready' is 
contained in memory from 219B to 21A0 Hex (8603 to 8608 dec), that 
is six bytes in total, five for the actual word Ready and the last 
byte is 00 to define the end of the word. To make a positive check 
on this is simple. 

Enter 'BYE' and 'CR' the cursor will be flashing next to the 
asterisk. Enter 'D219B' and 'CR' and the 128 bytes starting at 219B 
will be dumped (displayed) on the screen. The Hex values of Ready 
will be seen on the first line, to the right of the line are the 
ASCII repesentations of those values, you will also see the 'Break' 
message starting at 21A1. 

To alter Ready one must first look up in the ASCII code table on 
page 154 of the Owners Manual to find the Hex values of the letters 
we wish to change to, do not mistake the ASCII code table for the 
Display code table on the opposite page they are quite different. If 
we assume that we would like 'OK GR' displayed instead of 'Ready' 
the first letter would be O. Find O in the table, it is in column 4 
which is the MSD (Most Significant Digit), and line F the LSD 
(Lowest Significant Digit), therefore it's value is 4F Hex. The 
letter K is 4B and space is 20. G and R are 47 and 52 respectively. 
If you have already entered 'BYE' to place the 700 into RAM Monitor 
good, if not now is the time to enter it. 

With the cursor flashing next to the asterisk enter 'M219B' and 'CR' 

and the display should appear 

:219B=52 with the cursor over the 5 

Now enter without spaces:- 

4F4B204752 and 'CR' 

The display will now show:- 
:21A0=00 

Now enter 'SHIFT/BREAK' and the cursor will be on the next line with 
the Asterisk. Enter 'R' and 'CR' and you will be back in Basic with 
the Ready message altered to OK GR, or whatever it was altered to. 
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3.2.2 Trace command 


It is extremely useful to be able to display the current line 
number of the program being executed when de-bugging programs. As 
mentioned earlier the two commands TRON and TROFF exist in Basic 
VI.OA but their operation could be improved. 

The next routine alters Basic so that the current line number is 
displayed in the top left corner of the screen by entering 'TRON' 
before RUNning the program, whilst 'TROFF' will cancel and return to 
normal. 

As before only enter the characters listed under the TO ENTER column 
and 'CR' at the end of each series of numbers. Under COMMENTS the 
Assembly Language Mnemonics are listed for those who understand Z80 
code. If you are not into Assembly Language yet, don't worry as they 
are listed for explanation only. 


DISPLAYED 

TO ENTER 

COMMENTS 

Ready 

BYE 


★ 

M2289 


:2289 = 3E 

2AE638 

(LD HL,(38E6) 

:228C=D3 

CDA721 

(CALL 21A7 

:228F=E6 

2100D0 

(LD HL,D000 

:2292=A7 

0605 

(LD B, 5 

:2294=CD 

1 A 

(LD A,(DE) 

: 2295 = 51 

CDCD04 

(CALL 04CD 

: 2298= 5D 

CDF200 

(CALL 00F2 

: 22 9B =17 

23 

(INC HL 

:229C=E1 

13 

(INC DE 

:229D=F1 

1 0F5 

(DJNZ 2294 

:229F=3A 

El 

(POP HL 

:22A0=01 

FI 

(POP AF 

:22A1=39 

C9 

(RET 

:22A2=B7 

SHIFT/BREAK together 


★ 

R 

(returns to Basic 


Holding down 'BREAK' will halt the program, very useful with TRON 
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3.2.3 Slow Running 


This routine will slow the running of a program when keys 1 to 9 
are held down, 9 being the slowest speed. It is especially helpful 
when using TRON to debug a program. The routine is called 
continually during program execution, which slows the program a 
little, therefore one should be able to turn it on only when needed, 
as when turned off programs will run at normal speed. 

POKE6449,47,36 will turn on. 

POKE6449,30,0 restores to normal. 

One word of warning is that this routine is not too fond of programs 
with the Basic GET statement, due to the fact they use the same 
routine in RAM Monitor for scanning the keyboard, therefore if your 
program contains GET enter POKE89,240 which gives GET repeat on keys 
held down. 

POKE89,83 restores to normal. 


DISPLAYED 

TO ENTER 

COMMENTS 

Ready 

BYE 


* 

M242F 


:242F=CD 

AF 

(XOR A 

:2430=3C 

CD5800 

(CALL 0058 

.- 2433 = 07 

FE31 

(CP 31 

: 24 35 = 07 

381 1 

(JR C,2448 

: 24 37 =CD 

FE3A 

(CP 3A 

:2439=24 

300D 

(JR NC,2448 

:243B=C9 

D630 

(SUB 30 

:243D=13 

87 

(ADD A,A 

:24 3E=D6 

87 

(ADD A,A 

:243F=30 

87 

(ADD A,A 

:2440=38 

47 

(LD B,A 

:2441=03 

0E00 

(LD C,0 

: 2443 = 0A 

0B 

(DEC BC 

:2444=D8 

78 

(LD A,B 

: 2445 = 78 

B1 

(OR C 
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2446=C9 20FB 

2448=FE AF 

2449=2C CD1E00 

24 4C=1 A C9 

244D=FE SHIFT/BREAK together 

R 


(JR NZ,2443 
(XOR A 
(CALL 001 E 
(RET 


(return to basic 


3.2.4 Halt List 


During LISTing to the screen holding down the 'SPACE' bar will 
halt the display until it is released. 

This next routine will allow one to halt the list by pressing the 
'SPACE' bar, but it will remain halted allowing one to have both 
hands free to make notes etc.. Pressing the 'SPACE' bar again will 
single step, line by line, through the listout each time it is 
pressed thus enabling closer scrutiny of the program, whilst 
pressing any other key will continue listing as normal. 


DISPLAYED 


TO ENTER 


COMMENTS 


Ready BYE 

* M4192 

4192=58 4D24 

4194=FE CC5302 

4197 =F8 00 

4198=FE SHIFT/BREAK together 

M244D 

24 4D=FE CD1B00 

2450=03 FE20 

2452=FE C9 

2453 = 2F SHIFT/BREAK together 

* R 

To check on it's effectivness load a long program and list 
it will prove itself useful. 


(address of extra routine 

(CALL Z,0253 

(NOP 


(CALL 001B 
(CP 2 0 
(RET 

(return to basic 


I think 
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3.2.5 Bell on Ready 


Some users prefer the addition of an audible prompt when the 700 
returns to Ready, such as the bell heard when one enters USR(62). It 
is especially useful if one is loading a lengthy program as one does 
not need to continually watch the screen for the Ready message, as 
with loading the Basic tape for instance. 


DISPLAYED TO ENTER 


COMMENTS 


Ready BYE 

* Ml 870 

.-1870 = 06 8130 

:1872=AF SHIFT/BREAK together 

* M3081 

: 3081 =00 AF 

: 3082 = 00 CD3E00 

.-3085 = 00 CD0600 

: 3088=00 C9 

: 3089 = 00 SHIFT/BREAK together 

* R 


(XOR A 
(CALL 003E 
(CALL 0006 
(RET 

(returns to basic 


and you should have heard a beep when Ready was displayed. 


3.2.6 Buzz on Error 


Whilst on the subject of audible prompts, this routine produces a 
note whenever Syntax error is encountered. 


DISPLAYED TO ENTER 


COMMENTS 


Ready 

* 

:2171=51 
:2173=2A 
* 


:3089=00 


BYE 

M2171 

8930 

SHIFT/BREAK together 
M3089 

CD5100 (CALL 0051 
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308C=00 

E5 

(PUSH HL 

308D=00 

119530 

(LD DE,3095 

3090=00 

CD3000 

(CALL 0030 

3093=00 

El 

(POP HL 

3094=00 

C9 

(RET 

3095=00 

2D42320D 

(-B2 CR 

3099=00 

SHIFT/BREAK together 

R 

(return to basic 


To check on the new Error tone after returning to Basic with the 
Ready message displayed enter a series of keys, such as 'GGGG' and 
'CR', the 'Syntax error' will be screened followed by the new tone. 

We have entered a Music string into memory, 3095 to 3098 hex, as 
shown above. If you are not sure of the MUSIC statement check on 
page 65 of the Owners Manual. The value of 3095 is now 2D hex, which 
if you check with the ASCII code table on page 154 of the Manual, is 
the '-' character, which defines the note to be played to be in the 
lower octave range. Byte 3096 contains the Hex value of the note to 
played, in this case 42 hex which is note 'B'. And byte 3097 is 32 
hex, which defines the duration of the note, duration 2. The string 
is terminated, as all Music strings must be, with code 0D hex which 
is a Carriage Return. 

Once you have entered this routine it is very simple to alter the 
note played. If you wish the duration to be longer then altering 
byte 3097 to 35 will extend the duration from 32 hex (duration 2) to 
35 hex (duration 5). Similarly altering byte 3095 from 2D hex (- 
sign) to 2B hex (+ sign) will play the note in the higher octave. 
And changing byte 3096 to anything in the range 41 to 47 hex (A to 
G) will produce that particular note. 

Altering a single byte is exactly the same as before, enter 'BYE' 
and 'CR', and then 'M' followed by the byte to change. The byte 
number will be displayed along with the current value it contains, 
overwriting this with the new value followed by 'CR’ and the 
SHIFT/BREAK will complete the task. Then go back to Basic by 
entering 'R' and 'CR', then test out the new note by entering an 
incorrect command such as 'GGGG' and the new note will be heard when 
'Syntax error' is displayed. 
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3.2.7 Data tape prompt messages 


Some programs use a separate tape to record data, such as the Mail 
List program in a later chapter of this book. Consequently when the 
program requires a data tape to be loaded and read through the ROPEN 
command there could be a 'PLAY' prompt displayed, as when loading a 
program tape, but there isn't. Quite simply when ROPEN is 
encountered during program execution the display remains the same, 
and the unaware user could imagine that the program has crashed or 
entered an endless loop. The situation is the same when data is to 
be saved on tape, one could be greeted with the 'RECORD.PLAY' 
message, but alas it is not displayed. 

There is a very simple alteration to Basic which overcomes the 

problem. Enter 

POKE$47 4 2 ,$CD:POKE$474C,$AF 

Altering those bytes will now display both prompts when the commands 
ROPEN and WOPEN are encountered. Their original values were $CC and 
$B5 respectively. 


Another modification which I feel is required, if using several data 
tapes, is that the BASIC VI.OA never displays the fact that it has 
found or is loading a Data tape. With the inclusion of the 
modification above it now shows 'Found "Data Tape Name'" but 
doesn't display whether it is loading it or not. The only tell-tale 
sign that data is in fact loading is that the tape stops 
momentarily, when the buffer fills up, and then continues, even then 
it's not that easy to spot. The next routine will display the name 
of the data tape loading. 

DISPLAYED TO ENTER COMMENTS 


Ready 

:46F7=3A 
:46FA = 32 
★ 

:3099=00 


BYE 

M46F7 

CD9930 

SHIFT/BREAK together 
M3099 
110B43 


(LD DE,430B 
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:309C=00 
:309F=00 
:30A2=00 
:30A5 = 00 
:30A6=00 


21FC0F 
CDC816 
3AFC0F 
C9 

SHIFT/BREAK together 
R 


(LD HL,OFFC 
(CALL 16C8 
(LD A,(OFFC) 

(RET 

(returns to basic 


If you run programs that use data tapes these mods will prove quite 
valuable. 


Any or all of these routines can be added to Basic and then saved 
onto your back-up copy tape by using the routine in section 3.2.8. 
Remember that if you have entered any incorrect values in any of the 
routines, no permanent damage will be done. If you find they do not 
work correctly probably due to incorrect input, or you get into a 
muddle, or the program you are running crashes out or becomes stuck 
in an endless loop, the first thing to try is pushing the reset 
button on the rear panel which will take you into ROM Monitor 
followed by SHIFT and 3 keys which will bring you back to Basic, and 
try running again. If the fault is still there simply switch off for 
a couple of minutes (never switch off and on quickly) and reload the 
original (unmodified) Basic tape, and make the alterations again, 
also checking them using the Dump command to ensure they are 
correct, and then make the back-up tape. 

Here is an example of a Dump of the TRACE function after it has been 
entered in section 3.2.2. Enter 'BYE' and 'CR' to enter RAM Monitor 
then 1 D2289 22A2' and 'CR' 

:2289=2A E6 38 CD A7 21 21 00 
:2291=D0 06 05 1A CD CD 04 CD 
:2299=F2 00 23 13 10 F5 El FI 
:22A1=C9 B7 C2 CE 20 23 CD 50 

Checking these bytes with those which should have been entered will 
confirm if they were entered correctly. 
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3.2.8 Copying S-Basic with additions 


After the 700 loads in the Basic Interpreter 1Z-013B, it is moved 
down in memory to start at 0000 Hex and the initial screen message 
containing the copyright notice is deleted from memory, along with 
the Boot routine which transfers it down to address 0000. Therefore 
one must re-write the Boot section, and it is a good idea, although 
not essential, to re-write some form of initial message, as if one 
has more than one copy it will be clear which one is loaded. 

The entries below the COMMENTS are the ASCII codes of the Hex 
numbers being entered, this first section is re-writing the initial 
screen message. It begins with code 0D Hex (13 decimal) which is a 
carriage return, which means after the initial message is printed on 
screen the cursor will move to the next line. There are two more 
CR's at the end which will skip two lines before printing 'Ready' 
after the tape has loaded, the sp represents a space, 20 Hex (32 
decimal), between words. Finally all screen messages must end with a 
NOP, no operand 00 Hex, which determines the end of each message. 
MAKE SURE THAT A BLANK TAPE IS IN THE CASSETTE DRIVE AND NOT THE 
ORIGINAL BASIC TAPE 


DISPLAYED TO ENTER 


COMMENTS 


Ready 

★ 

:6AC1=C4 
:6AC8 = 00 
:6ACD=00 
:6AD5=00 
:6ADD=00 


BYE 

M6AC1 

0D424153494320 
434F505920 
315A2D3031334220 
56312E30410D0D00 
SHIFT/BREAK together 


(position of initial message 

(CR B A S I C sp 

(C O P Y sp 

(1 Z - 0 3 B sp 

(VI . 0 A CR CR NOP 


This section re-writes the BOOT routine. 


★ 


:6B79=00 
: 6B7A = 00 


M6B79 

AF 

110000 


(start of boot routine 

(XOR A 

(LD DE,0000 
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:6B7D=00 

CD3300 


(CALL 0033 

:6B80=00 

2A7111 


(LD HL,(1171) 

:6B83=00 

225412 


(LD (1254),HL 

:6B86=00 

110000 


(LD DE,0000 

:6B89=00 

21796B 


(LD HL,6B79 

:6B8C=00 

B7 


(OR A 

:6B8D=00 

ED52 


(SBC HL,DE 

:6B8F=00 

4D 


(LD C,L 

:6B90=00 

44 


(LD B,H 

:6B91=00 

210012 


(LD HL,1200 

:6B94=00 

D3E0 


(OUT (E0 ) ,A 

:6B96=00 

EDB0 


(LDIR 

:6B98=00 

C30000 


(JP 0000 

: 6B9B=00 

SHIFT/BREAK together 


There are now some calls 

within the Interpreter which must be 

altered, 

afterwhich is the 

section to move Basic up to 1200 Hex, 

which is 

where it will load from. 


★ 

ME000 


(routine to move up interpreter 

:E000=00 

212218 


(LD HL,1822 

: E003 = 00 

22E700 


(LD (00E7),HL 

:E006=00 

3E00 


(LD A,00 

:E008 =00 

32CF6B 


(LD (6BCF),A 

:E00B=00 

32D16B 


(LD (6BD1 ) ,A 

:E00E=00 

21A06B 


(LD HL,6BA0 

:E011=00 

11A07D 


(LD DE,7DA0 

:E014=00 

01A16B 


(LD BC,6BA1 

:E017=00 

EDB8 


(LDDR 

:E019=00 

C36A4C 


(JP 4C6A 

:E01C=00 

SHIFT/BREAK together 


Now for 

the actual copying 



+ 

GE000 


(GOTO move up routine 


The screen will now clear and display:- 

** MONITOR 1Z-013A ** (The original ROM Monitor 

(message is displayed 
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SI2007DA07D79 (ROM Monitor Save Command 

FILENAME? BASIC COPY (Enter any name up to 16 letters 

4 RECORD.PLAY (Press the two cassette keys 

WRITING BASIC COPY 
OK' 

Please note that whenever using the SAVE command in ROM Monitor, as 
you have just done and is described on page 149 of the Owners 
Manual, there should NOT be any spaces between the save parameters. 
As in the above case we have saved the program from address 1200 Hex 
to 7DA0 to execute at 7D79. If we were saving a machine code program 
using the RAM Monitor there would be spaces between them, as shown 
on page 100 of the Manual. 

Once recording is completed you will still be in ROM Monitor, and to 
re-enter Basic one must enter J7D79. 

Once again it will take six and a half minutes to save the back-up 
tape. If the tape you use finishes before the 'OK' message is 
screened, provided it has been recording for at least three and a 
half minutes, you can use the 'SHIFT/BREAK' keys to stop the 
recording and you should still have the back-up copy on the tape. 

Any further copies of this modified Basic must be made using this 
section and not the routine in section 3.1. 
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4. PEEKS & POKES 


This chapter deals with areas of S-BASIC which can be PEEKed to find 
information stored, or POKES and USR calls which can be made for 
different effects. 

It is important to remember that when PEEKing a location, to find 
what value it contains, whether one enters the byte in hexadecimal 
i.e. PRINT PEEK($6BCF), or decimal i.e. PRINT PEEK(27599) both these 
statements refer to the same location, the decimal value the byte 
contains will be displayed and NOT the hex value. 

The leftmost numerals are in decimal followed by the Hex equivalent. 

21 ...,$0015 Entering USR(21,Z$) prints a message contained in string 
Z$ on screen 

48.. ..$0030 Entering USR(48,M$) will play music contents of string 
M$. i.e.M$="+C+DE2" 

62.. ..$003E Entering USR(62) will sound a short note, ideal for 
giving an audible prompt whenever input is required. 

68 ....$0044 USR(68) turns on tone generator. 

71 ...■$0047 USR(71) turns off tone. See chapter 2. 

77.. ..$004D PLOTON flag, normally contains 0. 

POKE77,1 will direct all printing to the printer and screen. 

78.. ..$004E CONSOLE flag, normally contains 0. It contains 1 after 
CONSOLE parameters have been entered, i.e. CONSOLE2,15,5,30. 

84.■■■$0054 Contains current position of cursor column. The columns 
are from 0 (left) to 39. 

POKE84,6 will move the cursor to column 6, similar to TAB(6). 
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85.. ..$0055 Contains current position of cursor line. The positions 
of the cursor lines are from 0 (top line) to 24 (bottom line). 
POKE85,20 will move the cursor to line 20 irrespective of it's 
previous line. This could be simpler than using the CURSOR0,20 
statement as only one parameter is needed. 

86.. ..$0056 If CONSOLE has been entered with parameters i.e. CONSOLE 
2,15,5,30 it will contain the starting line of the scroll area, in 
this case 2. 

87.. ..$0057 Contains the number of the finish line of the scroll 
area, and NOT the amount of lines to print, in the example shown it 
is 16 (first line is 0 remember) so 16 will represent line 17 (2+15) 

89.. ..$0059 There is no auto repeat on GET. Usually it is not needed 
except for continuous input in games programs where it is important 
to keep down a particular key, rather than keep taking the finger 
off and re-pressing it. 

POKE89,240 will allow constant input from one key. 

POKE89,83 reverts to normal. 

91 ....$005B Contains starting column of scroll area, in the example 
it is 5 

92■...$005C Contains number of the column to finish at in the scroll 
area, in this case column 34, column 1 being 0 (5+30=35) 

93.. ..$005D Contains the value of current colour co-ordinates of the 
screen. After loading S-BASIC, with the screen printing white 
characters on a blue background, it will contain 113. If one 
converts this decimal number to hex it will be seen to be 71 hex. The 
first number (7) relates to the character colour (7 is white) and 
the second the background colour (1 is blue). 

POKE93,$15 will alter the colours to Blue on Light Blue. 

POKE93,$27 is Red on White. 

POKE93,$A7 will print the next statement in the second Display 
character set in Red on White. 


47 



Example:- 

POKE93,$A7:PRINT"SHARP RULES" 

will print out the message in the outline characters of the second 
Display code table, all further printing reverts to normal. 

The values of the colours are on page 80 of the Owners Manual. 

95.. ..$005F Contains the ASCII value of the last key pressed. 

96.. .■$0060 Contains the Display code value of the current cursor. 
When in Alpha mode the cursor character is 239 (EF hex), in Graph 
mode it is 255 (FF hex) and 67 (43 hex) when SHIFT/ALPHA have been 
pressed for lowercase (small) letters mode. 

The Alpha (normal) cursor can easily be altered to any other 
character. 

POKE96,$2B will alter it to the = sign. Note use the Display code 
table. The cursor will revert to it's previous character if one 
changes modes i.e. from Alpha to Graph and back again. For a 
permanent cursor change see $07F9. 

1 00.. ..$0064 AM/PM flag. Will contain 0 if TI$ is under 120000 
hours (AM), 1 if more (PM). 

POKE100,1 would alter TI$ from 032059 to 152059. 

292.. . .$0124 POKE292,1 will sound the bell when 'CR' is pressed. 

POKE292,4 reverts to normal. 

399.. ..$018F POKE399,150 sounds the bell on all other keys pressed 
except CTRL, SHIFT, CR 

POKE399,153 reverts to normal. This could be useful on inputs 
required from the keyboard. The bell will sound after one presses 
the DEF KEYs as each character is displayed. 

648.. ..$0288 Contains the speed at which the cursor moves. At 
present it contains 10. 

POKE648,5 will increase it's speed dramatically, whilst POKEing it 
with a higher value than 10 will slow it down. 
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1203.. ..$04B3 Holding down the BREAK key during program execution 
will temporarily halt the program. It may be that you don't want 
your programs halted. 

POKE1203,201 will disable the function. 

POKE1203,216 reverts to normal. 

1621.. ..$0655 The Routine for the Scrolling up effect of the 
screen, shown on page 129 of the Owners Manual, whereby holding down 
the SHIFT and cursor keys scrolls the complete two screenfuls round 
and round, is stored here. If one wants to make use of the scrolling 
during program running a USR call to this address is needed. To 
scroll the screen one complete turn, so the cursor ends up where it 
started after displaying the whole of Video Ram (2 Kbytes), one 
could enter this line:- 

FORX=1TO50:USR(1621):NEXT 

Try entering it in direct mode (without a line number) to see the 
effect before using it in a program. 

1661 ....$067D For This routine controls scrolling down:- 
FORX= 1 TO50 :USR( 1 661 ) .-NEXT 
Will scroll down. 

There appears to be a difference of opinion in what one calls up and 
down. On page 129 of the Manual it describes holding SHIFT with the 
Cursor UP key for scrolling up, but my 700 scrolls down. Similarly 
SHIFT with Cursor DOWN keys scrolls up. I suggest one tries both the 
above to decide what you call up and down. 

2041.. ..$07F9 Contains the alpha cursor seed value 239 (EF hex) in 
Display code. 

POKE2041,79 will alter it to Any value can be entered, so 

experiment. After entering the cursor will not change immediately as 
the current character is stored at $0060, press the Graph key and 
then the Alpha key and it will change. 

POKE2041,239 will revert to normal. 

2610.. ..$0A32 Holds Tempo value. If TEMPO is set to 1 this byte 
contains 7. If set to 6 the byte holds 2 and so on, if TEMPO is set 
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to 7 the byte holds 1. When S-BASIC is first loaded it is set to 4. 


261 1 / 8 .... $0A39/A These two bytes control the tone generator 
described in chapter 2. 


4092.. ..$0FFC Contains details of last program loaded. It will hold 
5 if it was a Basic program, 4 if Data tape, 2 if MZ-80K Basic 
program. 

4093-4109....$0FFD-$ 1 OOP Contains Name of last program loaded. 

To find out the name enter:- 

FORX= $0FFD TO $100D:?CHR$(PEEK(X));:NEXT 

or in decimal 

FORX= 4093 TO 4109:?CHR$(PEEK(X));:NEXT 

4110/1 ....$100E/F Contains size of last program loaded. A single 
byte can only hold a value up to 255, so in cases where the number 
is likely to exceed 255 two bytes are required. The first always 
holds the LSB (least significant byte) and the second the MSB (most 
significant byte). Therefore to determine the decimal value 
contained in a pair of bytes one should multiply the second byte by 
256, and add the two together:- 

PRINTPEEK(4110)+PEEK(4111 )*256 will print the size of the last 
program loaded, remembering that the multiplication sign takes 
priority over the addition sign and will be carried out first. 

4112/3....$1010/1 Holds in two bytes the loading address of the 
last program loaded. 

PRINTPEEK(4112)+PEEK(4113)*256 will reveal 27599 for Basic programs, 
as this is where they load from ($6BCF). 

6190.. ..$182E Contains $FF. On loading Basic clears memory contents 
up to $FF00. Altering this byte to $A0 would protect any data in 
memory above $A0O0 from being wiped out on loading Basic, but it 
would need to be copied onto a back-up tape. 


50 



10003....$2713 The INPUT prompt '?' is stored at this location. 
POKE10003, with any ASCII code value will change it. 

P0KE10003,63 restores to normal. 


Additional sections of the Interpreter are listed in chapter 8. 


The ASCII code table below 32 decimal is used as control codes. 
PRINT CHR$( followed by one of the numbers below will produce these 

effects:- 


CHR$(5) 
SHIFT, 
shifted 
CHR$(6) 
CHR$(13) 
CHR$(16) 
CHR$(17) 
CHR$(18) 
CHR$(19) 
CHR$(20) 
CHR$(21) 
CHR$(22 ) 
CHR$(23) 
CHR$(24) 
CHR$ < 2 5) 
CHR$(27) 


Alters keyboard to lowercase input, the same 
therefore keys pressed other than alpha will 
character. Key 2 will produce ". 

Changes back to uppercase. 

Issues a Carriage return. 

Deletes one character. 

Moves the cursor down one line. 

Cursor up one line. 

Moves the cursor one position right. 

Cursor one position left. 

HOMES cursor. 

Clears screen. i.e.CLS. 

Alters keyboard to Graphic mode. 

Prints a space. 

Alters keyboard to normal Alpha mode. 

Same as 13. 


as pressing 
produce the 
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The listing on this page prints a patchwork of patterns and colours. 
It uses the full 512 characters from both Display codes, and is very 
relaxing to view. 


10 COL OR ii. .0 
20 PRINT"S" 

30 F= 1 : B'~7 
40 W=0 

50 FORX-OT06 

60 VR=53252 

70 F0RV=0TQ 4:FOR 2 = 0T04 

80 AD=CW*200>+<X*5>+(Y*40>+2 

9 o P 0 K E V R+ 2 048+A D < D 

1 OO POKEVR+AP■A sNE x T 2 

110 NEXTY 

120 L'-INT (RND (1 > *2> 

130 A -• I NT (RND (i># 255 > +1 

140 1FD=1 THEN D-12B+F*16+B:BDTO160 

150 D=F* liS+B 

160 F=F+1:IFF >7THENF=0 

170 B=B+l: IFB >7THENB==0 

J 80 NEXTX 

190 W~W+1sIFW>4THEN80T040 
•;.:i «■> BDT050 


The next short listing will also test the definition on your T.V. 

It prints symmetric patterns on screen in randomly selected colours. 
The ASCII codes of the characters are listed in the DATA line 230, 
alter them to different characters if you wish by checking in the 
table in the Appendix. One could add additional characters, but make 
sure line 40 contains the total amount in the DATA statement. 
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J 0 CONSOLE:COLOR,,7,0 
20 'PR I NT "E" 

30 F-RND(1)*? +1 : S=F+2sIFS>7THENS@2 
40 F ORA= 1. I D 1J 
30 READD 
60 FORB=iT0100 
70 A*=CHR*(D> 

30 F0RC-1T02 

90 F0RDL=1T050:NEXr 

100 Y' = FvMD t I > * 12+1 

•10 X-=RND ( 1 ) *20+1 

1 20 C LIRSIJRX , Y: PR I NT C F.S3A* 

1 30 CURSORX - 24—YsPR INTC F,S1A* 

1 40 CURSOR 4 O' - X , Y: PRINT IF, SI A* 

150 CIJRS0R40—X , 24-Y: PRINTt'F, SDA4- 
I 60 A'i= " H" 

170 NEXTC,B 

1 BO F=F+ 1: IFF >7THENF—0 
190 S=S+1s IF5 >7THENS~0 
200 NEXTA 
210 RESTORE 
220 00104 0 

230 DATA167,172,149,112,124,243,241,145,108,200,246 
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5. Plotter Printer 


Even with some previous knowledge of Basic there may be some 
commands in the Colour Plotter-Printer section which one may feel 
need illustrating. 

5.1 Text Mode Commands 


The Text mode commands appear fairly straightforward as to the 
selection of character sizes. Entering MODE followed by either TN, 
TS or TL will print in 40, 80 or 26 characters per line 
respectively. 


SKIP 

Must be followed by either a number or variable , and will feed the 
paper if it is positive, or back-feed if negative. A variable which 
is not an integer, i.e.11.76, will be truncated, in this case to 11. 
PEEK20031 will display the value contained as 21 which is the figure 
at which 'Illegal data error' will occur if the positive value 
entered exceeds 20. 

POKE20031,41 would allow up to 40 lines to be SKIPped. 

PEEK20027 contains 236 which is the negative default value (256-20) 
POKE20027,216 will allow up to SKIP-40. 

PAGE 

Sets the number of lines per page, until a line is left blank which 
denotes the end of page. The present maximum is 72. 

PEEK21068 contains 73, the default value. 

POKE21068,93 would allow up to 92 lines per page. 

LIST/P 
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Although similar to listing to the screen the Plotter cannot print 
graphic characters. These are LISTed displaying their hex ASCII 
codes, and in a different colour to that being used. 



5.2 Graphic Mode Statements 


These Graphic mode statements illustrated make reference to the 
range of the X and Y co-ordinates as points (X=east/west 
Y=north/south). The maximum width of the plotter paper (X axis) is 
480 points, whilst the maximum Y axis is limited by the Basic 
Interpreter, not by paper length, to 999 points (north) to -999 
(south). 

LINE and RLINE 

These commands differ only in their referal to their origins. LINE 
must be followed by values which represent the position to draw to 
in respect of it's starting position in that sequence, or after HSET 
has been used. 

Enter MODEGR and 'CR' 

Enter LINE240,0 'CR' and a straight line will be drawn to the centre 
of the paper. 

Now enter LINE360,0 'CR' and the line will continue another 120 
points, finishing at point 360 in relation to the start. 

RLINE is followed by values which relate to it's position before 

that particular statement. 

Enter PHOME 'CR' then feed the paper on a few lines. 

Enter RLINE240,0 'CR' and once again it will draw to position 240. 

Now enter RLINE120,0 'CR 1 which will draw to point 360 across the 
paper. So the reference was made to it's present position and not 
the starting position as used with LINE. 

Care must be taken when using RLINE, if the print head is already at 
point 360 across the paper and one enters RLINE480,0 don't be 
surprised if the print head tries to move into the cassette unit. 

MOVE and RMOVE 

Both these statements lift the pen and move to a specified point. 
They both move in relation to separate origins as above. LINE refers 
to it's start position and RLINE to it's present position. 

To illustrate the above statements these next lists both produce the 
same results, that of a square in the centre of the paper. 



Using LINE 
10 MOVE120,0 
20 LINE360,0 
30 LINE360,-240 
40 LINE120,-240 
50 LINE120,0 


Using RLINE 

:X move to 120, Y level: 10 RMOVE120,0 

:X draw from 120 to 360, Y level: 20 RLINE240,0 

:X level, Y draw down to -240: 30 RLINE0,-240 

: X draw from 360 to 120, Y level: 40 RLINE-240,0 

:X level, Y draw up 240 points: 50 RLINE0,240 


Studying these alternatives should explain the differences, and of 
course either can be entered as one line:- 
10 RMOVE120,0:RLINE240,0,0,-240,-240,0,0,240 

To change the line drawn from a solid to a broken line, LINE or 
RLINE must be suffixed with the % sign and followed by a value 
between 2 and 16, the types of line are shown on page 86 in the 
Manual. Remember that after altering the line type all future 
drawing will be in the last type specified unless redefined. 


PHOME 

Will return the print head to the original points of X and Y. 

HSET 

Alters the origin of X and Y to the present position, any subsequent 
PHOME will return to this point. 


GPRINT 

The only way to print alpha or numeric characters when in MODEGR is 
by using this statement. It will print at the current print head 
location unless MOVE has been entered. 

GPRINT A$ will print the contents of string A$ 

GPRINT "BAR CHART" will print whatever is within 

The angle of printing can be altered to one of 4, along with the 
size of the characters up to 63. Apart from it's obvious uses, it 
could be used to print small banners. The example below will print 
'HAPPY BIRTHDAY' in the largest size, so make sure there is enough 
paper. If not shorten the string to one letter to demonstrate, one 
could add someones name to it, or alter the string completely. 

10 MODEGR:MOVEO,0:HSET 

20 FORA=0TO3:MOVEA*3,-A*3:PCOLORA:GPRINT[63,1],"HAPPY BIRTHDAY":NEXT 
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AXIS 

Draws lines with scale marks at given intervals, i.e. AXIS 1,50,9 
The first value to follow AXIS denotes the direction and must be 
either 0 to denote the Y axis (north/south) or 1 for the X axis 
(east/west). The second relates to the distance between each scale 
mark, in the above case 50 points, which is roughly equal to 1 
centimetre. The third figure is the number of repititions. Care must 
be taken with the amount of repeats, remembering the paper is only 
480 points wide, so in the above example the print head would finish 
at point 450 (50*9). As a general rule if one is drawing a scale 
line across the full width of the paper the second and third 
parameters multiplied together must not be higher than 480, else the 
print head may be shaking hands with the cassette again, 
i.e. 240,2 160,3 120,4 96,5 80,6 etc. 

AXIS1,2,240 will print a minute scale across the whole paper width. 
The Y axis amount of repititions is governed, not by length of 
paper, but within the Interpreter from -999 to 999. 

CIRCLE 

Is followed by six parameters. The first two refer to the X and Y 
centre of the circle starting point. If the print head is at the 
left side of the paper, entering the first two figures as 60,0 would 
make point 60 on the X axis the centre of the circle whilst keeping 
the Y axis level. Altering the second from 0 to within the range 
-999 to 999 would move the paper either down or up to the correct Y 
axis. 

The third figure relates to the radius of the circle, and once again 
is in the range -999 to 999. The first (X axis) and third (radius) 
parameters must be entered with thought, as we know the paper being 
480 points wide, if the centre of the X axis was 360 and a complete 
circle was to be drawn from there, then the highest figure for the 
radius could only be 120, otherwise a full circle would not have 
enough paper (width) to be drawn. The fourth parameter is the 
starting angle, if 0 it will start from the 3 o'clock position, if 
90 the 12 o’clock, and 180 the 9 o'clock etc., in an anti-clockwise 
manner. The fifth figure is the ending angle, as with the starting 
angle 0 is equal to 3 o'clock, so if only the top half of a circle 
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was needed then these parameters would be entered as 0,180, the 180 
being at 9 o'clock. The sixth and last value is the step angle of 
each plot made, obviously the smaller the angle the smoother the 
circle becomes. In the example shown in the Manual on page 90 a step 
value of 0.2 is given, this slows down the actual drawing speed 
dramatically. Try higher settings for the step angle, even 10 gives 
a fairly neat circle, and speeds up the drawing process 20 times. 

CIRCLE240,0,90,0,360,10 

Draws a circle with the centre at 240 on the X axis, centre of paper 
The Y axis is level at 0 

The radius is 90 points, making the total diameter 180 points 

The starting angle is 0, at 3 o'clock 

The finishing angle is 360, a complete circle 

And the step angle is 10 

The previous examples assume the print head to be at the left 
position. If it isn't press the reset switch on the printer with a 
pencil or similar pointed object, and enter MODEGR. 


PRINTER TIPS 

If not in constant use the printer pens may dry-up, therefore when 
not in use remove from the 700 and remember to keep them capped. 

Do not use paper rolls less than 110 mm wide. If one looks 
carefully, small pin pricks are made on the left and right of the 
paper when in MODEGR to assist correct feeding. 

Do not operate with the Printer cover removed, as it is too easy do 
drop something into the printer. 


The following program on Biorhythms uses the plotter to print out 
the charts, it can still be run if you have not got the plotter 
fitted, delete lines 880 to 1400 inclusive. 
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10 CONSOLE:COLOR ,,7,1 

20 PRINT'S" 5:PRINT!1,71TAB(10>" BIORHYTHM" 

30 DIMX(11),M*(12>,D(12>sX*=" 01234567B9"iA*53248 

40 FOR I = 1 TO 11:READX(I):NEXTI:FORI = 1 TO 12iREADM*(I),D(I>:NEXTI 

50 PRINT 


60 INPUT "Enter Name." ; N* 

70 INPUT"Year born <i.e.1969>. . . "5YB 
BO IFYB< 1901 THEN PRINT "SORRY CANNOT D0"SB0TD60 
90 INPUT"Month (1 to 12)MB 

1.00 IF CMB< 1 > + (MB > 12) THEN90 
1.10 INPUT "Day (1 to 31>....";DB 

J20 IF (DB< 1> + ( DB>31 ) THEN 110 


130 PRINT:PRINT 

1.40 INPUT'Year to start.. 11 S YS 

1.50 IFYBC1901 THEN PRINT "SORRY CANNOT DO" JBDT0140 

160 INPUT "Month." 5 MS 

170 IF tMS<1) + (MS>12> THEN1SO 


1.80 DS= 1 

190 I NF'UT 11 How man y Mon t h s." j HM 

200 Y=YB:M=MB:D=DB:B0SUB650 
210 B0SUB69OsB=F:Y T-YB:M1=MB:D1=DB 
220 Y=YS:M=MS:D=DS:SQSUB650 
230 BDSUB690:H=F 

240 IF1M<3 > * (Y/4=INT < Y/4)>*(Y1/4<>INT(Y1 /4 > >THENB=B+1 

250 1F<M>2>*(Y/4=I NT(Y/4)># CY1/4=INTIY1/4)>THENB=B-1 

260 IF (Y/40INT (Y/4) ) * (Y1/4=INT(Yl/4) ) THENB=B-1 

270 N=G--H: TFN>OTHENBOSUB6BO: B0T0220 

280 P”23#(N/23-INT(N/23)>s0=28*(N/2B-INT(N/2B>) 

290 R=33#(N/33-INT(N/33)> 

300 L=32-LEN (M*(Ml>+STR*(D1> +BTR* (YD) 

310 PRINT"SName5 "5 N*: TAB (L> ? "BORN! " ; M* (Ml ) ; D1', Y1 
320 COLOR,,0,5 
330 HM=HM—1 


340 PRINT"i| •=F'hysical 0 =Emotianal Q= Inter 11ectual" 


550 


360 

370 

380 

390 

400 


PR I NT" n ITrTTTTTTTI I I I I I I I T I I I T I I I I T~1 I 1 T 

PRINT" I I I I I I I I I I I I I I I I I 

PRINT" I—1—4--4—I—!—1 — I — I —P I I 1 4-4-4—t- 

PRINT" I I I I I I I I I I I I I I I I I 

PRINT" i i... 1 . 1 .i.X-i—i.j—J—L i i i i 1 — 1 —J-LJ-i-i i i i u i i t i i n 

NR=-1: S=Y! T=M» U*Ds W=0: W=21 


":FORI=0T07 
":NEX ri 
" i FORI=0T07 
" s NEXT I 


410 FOR I=0T035 


420 IF(U=D *(NR=-1>THENNR=I 








430 C*=RIGHT*(" "+STR*(U>,2)sIFI/2C >INT(1/2) THEN480 

440 B*=LEFT*<C*,1):G0SUB760 

450 POKEA+3+IW*40)+VV+I,B 

460 B*=RIGHT*(C*,1>sG0SUB760 

470 P0KEA+3+(W +1)*40+VV+1,B 

480 U=U+1: 1FU< =D (T ) THEN510 

490 IF(T=2> *(S/4 = I NT(S/4 > )* <0=29 > THEN510 

500 U=i:T=T+1:IFT >12THENT =-1:S=S+1 

510 NEXT Is IFNR >30THENNR=30 

520 COLOR,.7,1 

530 PR 1 NT" U! "5 M*(MSTR»'Y)i 

540 NM=M+1:IFNM=13THENNM=1 
550 PR 1NTTAB(35)S M*(NM) 

560 FDRI=0T034 

570 K=INT(SftSINC(-P+1) *2* fl/23> +.5>:B=71: GOSUBBOO 
580 K- INT(8*SIN<(~Q+I)*2*ir/28>+. 5) '• B=72sGOSUBBOO 
590 K=INT(8*SIN<(-R+I>*2*tf/33>+.5> sB=74: GOSUBBOO 
600 NEXT I 

610 PR I NT Cl, 735 TAB f14)5"II HARD COPY Y/N ":USR(62) 

620 BETA*:IFA*=""THEN620 
630 IFA*="Y"THEN8B0 
640 GOT 01410 

650 E=1:IF(D< = D (M)> THENRETURN 
660 IFMl>2THEN6B0 

670 11- (Y/4= I NT (Y/4 >)*( D=29) THENRE TURN 

efiO E=0sUSR(62)sPR INT"glNCORREC1 DATE"sMUSIC"R9":G0TO7O 
690 F=OsIFM 2THEN740 
700 FOR I = 1 TOM-1 
710 F=F+DH> 

7 20 NEXT 1 

730 1F Y/4 =1NT(Y/4)THENF=F+1 
740 F=F+365•Y +1NT<Y/4)+D 
750 RETURN 
760 I. -1 

770 IFBS-MID*(X*,C,1)THENB-X(C>:RETURN 
780 I -( +1: IFC > 1 1 THENB=0 = RETURN 

790 GOT0770 

BOO AD-A+3+(11 —K>*40+1 
810 POKEAD,BsRETURN 

820 DATAO,32,33,34,35,36,37,38,39,40,41 

B30 DATA.)AN,31,FEB, 28, MAR,31, APR, 30, MAY, 31, 0UN, 30 

840 DATAOUL,31,AUG,31,SEP,30,OCT,31,NOV,30,DEC,31 
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850 M=M+1s I FM>12THENM=1:Y =Y+1 

860 D=1 

870 BQBUB690:H=F:B0TD270 

880 MODE T N: PCDLORO: PR I NT /P;" Name ";N*5 TAB (L ) " Bor ns " ; M* (Ml) ; D1; Y1 

890 PCDLORO5 PRINT/PTABllfa);"High" 

900 MODEBR 

- i " I I NE7.1,44 2, O, 442, - 240, 0, -240, O, 0 
''20 FURX=27032STEP4 
990 MOVEX * 13 •O 
940 L1NEX7,X * 13,-240 
950 MOVE t X +2)* 13,-240 
960 LINEiX +2)* 13,0 
970 NEXT 
980 MOVED,-120 
990 HSET 

I 000 LINE7.1,442,0 
I010 Z=P:X =23:PC=1s80SUB1OBO 
1020 RMOVE4,O:GPRINT 1 0,0 3,"PHYS." 

103o 2 =0s X =2B s PC=2s GOSIJB1080 
1040 RMDVE4,0 sGPRINTC 0,03,"EMOT. " 

1050 Z =-R: X =33 s PC=3: 80S LIB 1080 
1 060 R MOVE 4, O: GPR I NT C 0,03. "I NTEL. " 

1070 GOTO1170 
1OBO PHDME 

1090 K=1NT i 120*SIN ( i - Z ■ i I > *2#rf/X ) +, 5) :MOVED,K 
UOu PttILORPC 
1110 POR 1=0T034 

1 120 K = I NT <120*SIN « (-Z + I > *2*if/X>+. 5) s G0BUB1 150 
1130 NEXTI 
1140 RE TURN 

I. I 50 IP 1 =07 HENMDVEO, K s RETURN 
11fao LINE13*1,K:RETI'JRN 
1170 PHONE 
l ISO MOVED,-160 
1190 USET 
1200 PCDLORO 

1210 MODETN:PRINT/PTAB(17)«"Low"sMODEBR 
1220 MODEBR 

J 230 NR= — 1:S=Y:T=M:U=D:VV=0«W=21 

1240 FUR 1=0TD35 

1250 IF(U=1)*(NR--1> THENNR=I 

1260 C*=STR*(U):IFI/2<>I NT(I/2>THEN1310 
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1270 I3PRINTC1, 13,(3* 

1280 IFLEN(C*>>1THENZ=24:6DTQ1300 

1.290 Z= 12 
1300 RMOVE26,Z 

1310 U=U+1!XFU<=D(T)THEN1340 

1320 IF(1=2)*(5/4=INT(S/4>)*(U=29> THEN1340 

1330 U=1:T=T+l:IFT>12THENT»1«S=B+1 

1340 NEXTI:IFNR>30THENNR=30 

1350 MODETN 

1360 5KIP2 

13/0 PRINT/P;M* (M) }", “J8TR*(Y>$ 

I 380 NM=M+1:IFNM=13THENNM=1 
1390 PRI NT/PT AB <33>$M*<NM) 

1400 SKIP4 
141 0 IFHM>0THENB50 
1420 END 
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6. Program Tips 


6.1 Recovering Lost Programs 

If one has ever typed NEW by mistake and thought they had lost a 
program this section will endeavour to show you how to bring it back 
to life. After NEW has been entered all variables are zeroed, just 
the same as entering CLR, and the pointer which holds the position 
in memory of the end of the file (program) is altered to the 
position next to the start of file, the beginning of where programs 
start in memory. Your program, or 99% of it, is still in memory only 
the 700 doesn't think it is. In addition the length of the first 
line, which is the very first byte in the program storage area is 
also set to zero, hence if one enters NEW then LIST nothing gets 
listed as it doesn't think there is a program there. So there are a 
few bytes which will have to be altered in order let it believe that 
it still contains a program. To understand it a little more it would 
be better if you have just loaded Basic afresh and the memory does 
not contain a program. 

When one enters lines in a program they are converted in a way 
that the computer understands, for instance if a line contained 
INPUT A$ the keyword INPUT would not be stored in memory as a word 
but a unique hex number, a token, which in this instance would be 91 
hex. Enter the next 2 line program and then we will dump the 
appropriate section of memory to see how a program is stored. 

10 INPUTA$ 

20 PRINTAS 

Enter 'BYE' and 'CR' to jump into RAM Monitor. 

Now enter 'D6BCF' and 'CR' and the contents of the 128 bytes 
starting at 6BCF hex will be displayed. 6BCF hex is where all Basic 
programs commence in memory, and this first byte contains the length 
of the first line in the program, in this case 8. The third and 
fourth bytes are the actual line number one has given to the first 
line. A single byte can only hold a number up to FF hex (255 dec), 
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so whenever it may be neccessary to hold a larger number 2 bytes are 
used and the lower byte comes first. Basic line numbers can be as 
high as 65535 and no higher, but in our case the line number was 10 
which is stored as OA hex. The fifth byte contains the token for the 
keyword INPUT, 91 hex, this is followed by the ASCII codes for A and 
$, and the last byte of a line is always 0. The second line is very 
similar with the exceptions of the line number, which was 20 and is 
stored as 14 hex, and the token for PRINT is 8F hex. 


line 

line 

token 

A 

$ 


length 

:6BCF=08 00 

no. 

0A 00 

INPUT 

91 

41 

24 

00 

line 

line 

token 

A 

$ 


length 

:6BD7=08 00 

no. 

14 00 

PRINT 

8F 

41 

24 

00 


If one enters 'R' and 'CR' to return to Basic and then enters ’NEW’ 
the program will not LIST or RUN, because the pointers have been 
zeroed. 

Enter 'BYE' and 'CR' again followed by 'D6BCF'. One can see that 
only the first line has been changed, the second line is still 
intact. They should look like this 

:6BCF=00 00 00 00 91 41 24 00 
:6BD7=08 00 14 00 8F 41 24 00 

The first task is to calculate the length of the first line, in this 
instance we know it was 8, but normally a program line would take up 
more bytes than that and one should look for the start of the second 
line, and count how many bytes there are between the start, 6BCF, 
and the first byte of line 2. Altering the bytes contents is very 
simple, move the cursor, by the cursor control keys, up and across 
so that the cursor is over the first digit of the first byte and 
enter 08 followed by 'CR'. This has now altered the contents of the 
byte, but remember that one must always use a hex number so if it 
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was found that the first line was 26 bytes long one should convert 
this to hex before overwriting the byte, which would be 1A in that 
case. The line still isn't the same as before we entered NEW, the 
actual line number is still zero (byte 3), but in fact it would HUN 
with a first line as 0. When entering Basic lines one cannot enter a 
line number as 0, but nevertheless at the moment it is zero and will 
LIST and RUN. 

Before going back to Basic and testing the program there is still 
the end of file pointer to be altered. Move the cursor back down to 
the asterisk and one position to the right of it and enter 'D6AB3' 
and 'CR'. The only pair of bytes we are interested in here is the 
first two which have D1 6B as there contents. This is, in reverse 
order, the address of the end of file 6BD1, which must be changed. 
Usually it contains the address of two bytes after the end of the 
current program. Normally a program would be much longer than this 
example and it would help if one could remember some of the contents 
of the last line. If one dumps from 6BCF onwards, by continually 
entering 'D' after each section has been displayed, one might be 
able to see some of the text to the right of the bytes contents. 
Unfortunately keywords, as they are tokenised, won't be too obvious 
to spot but print strings will be. Once the end has been found the 
address must be entered into 6AB3, but don't worry too much if you 
aren't exactly sure of the last byte of the program. It does not 
have to be exactly two bytes after the end, 1000 bytes after would 
do providing the program isn't too long, just make sure it is after 
the end. Enter 'D6AB3' and 'CR' again. If it was decided that the 
program ended at 7BD0 for example, we must enter 7BD2 or more into 
bytes 6AB3 and 6AB4. The last byte is entered first in 6AB3 so 
position the cursor as before over 6AB3 and enter 'D2', then move it 
to the right once so that now it is over the next byte and enter 
'7B' and 'CR'. Moving the cursor back down and adjacent to the 
asterisk one can enter 'R' and 'CR' to go back to Basic and the 
program should LIST. Check if the last line is as you had remembered 
it and if not alter it, but the main bulk of the program should be 
displayed, then try running it. 
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6.2 Converting MZ-80K to MZ-700 


S-Basic contains an automatic conversion routine to alter Basic 
programs on tape written for the Sharp MZ-80K to run on the MZ-700. 
However it will not convert MZ-80A programs. As the MZ-80K had a 
built in monochrome screen there will not be any color commands in 
these programs, they will have to be added as required. 

After loading the program in the normal way the Basic interpreter 
will know from reading the data at the start of the program that it 
is in K format. Whereupon the message 'CONVERTING TEXT' will be 
displayed followed by a series of dots similar to when MERGEing a 
program, one for each line of the program changed. Once this is 
completed the 'Ready' message will be screened BUT before attempting 
to run one should list the program on screen as there may be further 
alterations to be made if the program contains any PEEKS or POKES. 
Any POKES to the Video Ram area (53248 to 54247) can remain as these 
are compatible. All other POKES must be checked with the list below 
and altered, and if they aren't there then look for a machine code 
routine in the listing which is POKEd into the top of memory and 
uses the LIMIT statement. If this is the case the chances are that 
the program will not run correctly, but try anyway as the worst that 
will happen is that the program will crash and you may have to load 
Basic all over again. 

These are the addresses which may be POKEd and must be altered:- 
4465/6 decimal controlled the cursor positioning. The K did not have 
the CURSOR command and a typical line might be:- 
POKE4465,20:POKE4466,10 

4465 was the column and 4466 the line. One can alter it to 
POKE84,20:POKE85,10 or enter CURSOR20,10 

The K did not have repeat facilities on any key held down such as 
when used with a GET statement (neither has the 700, but see chapter 
4 for the mod) and it was overcome by PEEK17828 which contained the 
ASCII code of the last key pressed. One might see a line GETA$ 
followed by IF PEEK(17828)=81 THEN etc.. It is simply testing for a 
particular key, in this case the 'Q' key, to see if it is 
continously being held down. Alter the line to IF A$="Q"THEN etc. 
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and if one wants to test if it is held down use the mod in this 
chapter. 

The two bytes used with the Tone generator that makes all those 
funny noises were 4513 and 4514, these should be altered to 2617 and 
2618 respectively. 

POKE4464,1 altered the keyboard to accept lower case (small) 
letters, this can be overcome by changing it to PRINTCHR$(5). 
POKE4464,0 restored to upper case letters and should be changed to 
PRINTCHR$(6). 

Any USR(62) calls should remain as should USR(68) and USR(71). 

Any other POKES should be viewed with scepticism and deleted from 
the program. There may be POKES to 10167 which simply turned off a 
flag which stopped the owner PEEKing the main memory, very 
frustrating that was, and if one left it in the on the 700 it would 
wipe out part of the ?USING routine. So be prepared to delete any 
others, as the addresses most certainly won't be compatible with the 
700, and were probably trying to achieve special effects which we 
take for granted and are included in the Basic of the 700 anyway. 


6.3 Logical Operators AND/OR 

In many versions of Basic, and also in program listings in 
Magazines, one may encounter a line such as:- 
100 IF Z=9 AND Y=8 THEN GOTO 800 
or: - 

200 IF Z=2 OR Y=6 THEN GOTO 600 

Sharp S-Basic does use these operators but not in this form. The 
above lines should be entered as:- 
100 IF (Z=9)*(Y=8) THEN GOTO 800 
or: - 

200 IF (Z=2)+(Y=6) THEN GOTO 600 

The * sign should be substituted for AND 

The + sign substituted for OR 

And both arguments enclosed in brackets. 
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6.4 User Prompts 


One has probably seen in programs, or written into your own 
programs the 'PRESS ANY KEY' prompt, followed by a GET statement. 
This can cause confusion to non-computerists as to whether or not 
they have pressed the correct key, as pressing the 'SHIFTCTRL' or 
'BREAK' keys would have no effect whatsoever with GET. It is far 
better to specify the key to be pressed such as 'PRESS SPACE' or 
'CR' and test for that key in the next line. One cannot enter a line 
such as IF A$="CR" but one can test for the ASCII value of any key. 
For instance the ASCII value of the 'CR' key is 13 and the line 
could be:- 

IF ASC(A$)=13 THEN which would only accept 'CR' as being pressed. 
The codes of all the keys are in the ASCII table with their decimal 
values in the Appendix. 


6.5 Delay Loops 

To display a message on screen for a limited time before 
continuing you may have used a delay FOR..NEXT loop:- 
100 FOR DL=1 TO 3000:NEXTDL 

Which will hold up the program for about 2 seconds, increasing the 
3000 to 6000 would hold it up even longer. An alternative is to use 
the MUSIC "R9" statement which plays a rest (silence) causing a 3 
second delay and uses less memory. Longer delays can be made by 
MUSIC"R9RR". Experiment and see. 

6.6 User Breaks 

If, for whatever reason, you do not wish your programs to be 
halted by 'SHIFT/BREAK' keys then the following points should be 
noted. When running a program it can be stopped in several ways. The 
first is if the user has input an alphabetical key when a numeric 
was required. Let us imagine the key to be entered was between 1 and 
9, the program line might be 100 INPUT A which will stop the program 
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if a key is pressed other than a numeric one. One can enter a line 
ON ERROR GOTO, but the surest way of getting round it is to alter 
the line to INPUT A$, which will accept any key, alpha or numeric, 
and the following line could test the input for keys 1 to 9 and loop 
back if it was incorrect. 

The other ways of making a program unstoppable are by altering a few 
bytes of RAM to disable BREAK being used intentionally. Pressing the 
BREAK key on it's own whilst a program is running won't completely 
bring the program to a halt, but it will stop it temporarily while 
it is held down. 

POKE1203,201 will disable. POKE1203,216 restores to normal 
To disable the 'SHIFT/BREAK' keys during program running so they 
become inoperative enter 

POKE6452,54,25 disables. POKE6452,113,32 restores 

One more alteration should be made to the INPUT routine as even with 
the above changes 'SHIFT/BREAK' could still stop a program whilst it 
is waiting for input from the keyboard. 

POKE8987,29,35:POKE9056,98,35 disables. 

POKE8987,105,32:POKE9056,105,32 restores 

With the changes above it will be found that if 'SHIFT/BREAK' are 
pressed during a MUSIC statement, the program will not terminate but 
will simply abort the MUSIC string and continue with the next line 
of the program. 


6.7 GET Auto Repeat 

There are advantages with being able to hold down a key 
continuously in games programs for constant movement on screen, but 
also it might be inconvenient in other programs where only one key 
is required. Normally S-Basic requires a key to re-pressed each time 
GET is used, as will be seen in the listing in chapter 2.3.1, but 
this is a classic case for the repeat key facility. At present the 
Interpreter calls 0253 hex whenever GET is used, altering it to 02F0 
will accept keys held down. 

POKE$59,$F0 will change to repeat. 

POKE$59,$53 will revert to single key entry. 
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6.8 Colour Changes 


In order to instantly change the whole screen to printing in 
alternate colours, one has to enter a Clear screen after entering 
the COLOR statement and lose the current display. 

This next routine allows the display to remain intact whilst 
changing either background or character colours, or both, which 
could be useful for highlighting user errors or for the titles of a 
program. 

The Clear screen routine in RAM Monitor starts at location 071E 
hex (1822 dec), which firstly places a zero into each Character V- 
RAM location of the screen area, from D000 hex (53248), so clearing 
the screen. Secondly at 072D hex (1837 dec) it then refers to 
location 005D (93 dec) to find out the current colours to print in, 
and loads the Colour V-RAM locations from D800 (55296) with the 

specified colour co-ordinates. Example:- 

If the screen is printing white characters on a blue background and 
one enters a line:- 
COLOR,,1,7:CLS 

The screen will not only clear but the whole background will have 
changed to white, and any characters subsequently printed will be in 
blue. 

So if one calls this routine, with a USR statement, not to the 
beginning but at the point where only the Colour V-RAM is altered 
the display will remain intact but the colours will alter. Entering 
a line:- 

COLOR,,4,7:USR($072D) 

Will alter the colours of whatever is currently shown on screen to 
green on a white background. Possibly the only drawback with this 
statement is that the cursor jumps back to the HOME position of top 
left corner of screen, and therefore if one wanted to continue 
printing further down screen the cursor would need to be re¬ 
positioned by the CURSOR command each time it was used. 

Alternately one can enter a machine code routine into a program, and 
POKE it into a high location in RAM protected by the LIMIT statement 
which will NOT alter the cursor position,:- 



10 LIMIT53225 
20 FORX=53226 TO 53247 
30 READ A:POKEX,A:NEXT 

40 DATA 243,211,227,33,0,216,17,1,216,1,248,7 
50 DATA 58,93,0,119,237,176,211,225,251,201 

With this entered into a program, whenever one wanted to flash the 
whole screen with different colours a USR(53226) entry is all that 
is needed. A line could be entered thus:- 
200 COLOR,,1,7:USR(53226) 

Which would alter the colours whilst keeping the actual characters 
intact to blue on white, and it would not alter the cursor position. 


6.9 Protecting Programs 

It is a thorny problem trying to make programs difficult to copy. 
At present it appears that there is no foolproof method of achieving 
this aim. There are some ways of protecting programs from prying 
eyes, although they certainly couldn't be considered locktight, they 
could cause problems. 

The Reserved words that the 700 uses can have their addresses 
altered from whatever area of memory they should jump to, to the 
Error routine instead. This could disable commands such as LIST and 
SAVE, and if your program did not contain the PEEK statement, that 
too can be altered. 


POKE 12629,254,32 will produce 'Syntax error' when LIST is entered 


POKE 12721,254,32 

II II 

II 

II 

II II 

If 

II 

SAVE " 

It II 

POKE 12919,254,32 

II II 

II 

II 

II If 

• 1 

It 

PEEK " 

II II 

POKE 12751,254,32 

• 1 It 

If 

" 

If II 

II 

It 

BYE " 

It II 

PEEKing memory is 

not 

the 

only 

method 

of 

checking 

memory 

contents 


it can be achieved by entering 'BYE' and Dumping to the screen, 
therefore it would be wise to disable BYE also. 

These changes should be entered in the first few lines of the 
program, once it has RUN the memory will be altered and the above 
commands will not function. 
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POKE 

12629,2,65 restores 

LIST 

to 

function 

normally 

POKE 

12721,164,66 

SAVE 

II 

II 

II 

II 

II 

POKE 

12919,181,101 " 

PEEK 

II 

II 

It 

•1 

II 

POKE 

12751,194,19 " 

BYE 

ft 

It 

II 

II 

II 


These changes are not to be taken too seriously as they rely solely 
on the program running for them to execute, but the more changes one 
adds, the harder they become to unravel. The following changes add 
to the confusion, for if the previous changes are rectified, on 
entering the previous commands it will be found that they still will 
not function. 

POKE 16642,201 disables LIST 
POKE 17060,201 " " SAVE 

POKE 26037,201 " " PEEK 

POKE 5058,201 " " BYE 

The following restores to normal. 

POKE 16642,175 restores LIST 
POKE 17060,205 " " SAVE 

POKE 26037,254 " " PEEK 

POKE 5058,229 " " BYE 


6.10 List Extra 

This small routine will print listings with a clear line between 
each line of the program, so making listouts clearer to read. 
Obviously the amount of lines on screen at any one time is reduced, 
but you may find it easier. Listing to a printer will also leave 
lines clear. It can be POKEd in direct mode:- 
POKE 12410,205,249,23,205,249,23,201 

At this stage the routine is in memory but has to be turned on by:- 

POKE 16781,122,48 

And to turn it off if desired:- 

POKE 16781,249,23 
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7 Data Handling 


Micro computers are very good at playing games, especially the Sharp 
700 series, but they really come into their own when faced with what 
we mortals would call monotonous tasks which seem to take ages to 
do, as they can be performed in a fraction of the time, the 700 
faster than most. Eventually some bright spark after seeing the 
piece of Hardware in the room will say "yes I know it's a computer, 
but what else can it do besides play games". With the help of the 
next two sections perhaps you can show them, they deal with sorting 
data into order and storing data on tape for future reference and 
updating. 

7.1 SORTING DATA 


There are several algorithms (routines) for sorting a series of 
numbers or names into order, the simplest and best known being the 
Bubble-sort method. Quite simply the program runs through the data 
comparing each with the next and deciding if it is smaller, or 
larger, that their positions should be exchanged. It works very well 
and on small lists is fairly quick, but on longer lists, as it does 
not take into account that the item might be in the right position 
and it's the others that need altering, it is very slow. To sort a 
random set of 255 numbers could take nearly 3 minutes. 

The next program generates random numbers and then sorts them 
using a bubble-sort routine into order. You will be prompted to 
enter the amount of numbers to sort, whereupon the program will 
randomly select and display that amount on screen. On completion of 
the sort they will be listed in order and the time taken will be 
displayed. The actual sort routine is contained within lines 200- 
300, if you have already written a program that needs to sort small 
amounts of data then this routine is all you will need. The variable 
N is the amount of numbers to sort and the numbers themselves are 
placed in array B(X). The REM lines are for clarity only. 
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100 INPUT "I«?TQTAL OF NUMBERS TO SORT " f N 
110 O f.MB (N> 

120 FORX = 1 TON 

130 BiX)*INT(RND(1> * 100)+1 
140 PRINTB(X > j 
150 NE.XTX 

lt,0 PRINT: PR I NT "THESE ARE THE NUMBERS TO SORT" 

.170 PRINT "IJTHE TIME STARTS NOW" 

1 BO T I $= "000000" 

190 REM 

200 REM######BUBBLE SORT*** 

210 REM 

220 FORT-NT01STEP-1 s M=0 

230 FORS= 1 TOT 

240 IFB(S) <=MTHEN260 

250 M=B(S):|.--S 

260 NEXTS 

270 B1=B(L.) sB(L) =B < T) :B(T)=B1 
2B0 NEXTT 
290 REM 

>00 REM*##*END OF SORT**# 

310 REM 
320 A*=TI» 

330 PRINT:PR INT"TIME TAKEN TO SORT"UN;" NUMBERS WAS" 
340 PR INTA*SPRINT 
350 FORX=1 TON 
360 PRINTB(X); 

370 NEXTX 
380 STOP 


If one runs the program, entering different amounts of values for N, 
up to a maximum of 255 as this is the total a single array can 
handle, and note the times taken to sort, they can be compared with 
the faster sort routine on the following page. 
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Now add these additional lines 

190 G0T0390 
390 M=12:DIMLH(M) 

400 G=1iLH <1> =1:RH <1> =N 

410 L=LH(I3> :R=RH(B> :I3=G-1 

420 I=L:J=R:V =B(INT((L+R)/2>> 

430 IFB(I>< YTHEN1 = 1 + 1:G0T0430 

440 IFY<BiJ >THENJ=J-1:GOTO440 

450 IFI>J THEN480 

460 W=B (1 > s B ( I ) =B tJ) :B i J ) =W 

470 1=1+1sj=j-l 

4BO IFI< =J THEN430 

490 IF I>=RTHEN510 

500 G=G+1:LH(G> = I:RH < G> =R 

510 R=J 

520 IFL<RTHEN420 
530 IFGO0THEN410 
540 GOTO320 

Compare the times of running this faster sort. 


>. of items to sort 


Bubble- 

■sort 

Fast- 

■sort 

20 



i 

sec 

1 

sec 

30 



3 

secs 

2 

secs 

40 



5 

secs 

4 

secs 

50 



8 

secs 

5 

secs 

60 



11 

secs 

6 

secs 

80 



19 

secs 

9 

secs 

100 



29 

secs 

11 

secs 

200 

1 

min 

48 

secs 

26 

secs 

255 

2 

min 

53 

secs 

33 

secs 


These sorts can also be used for names using string variables, as is 
shown in the Address List program in the next section. 

To change the sort from low/high to high/low alter the following 
lines 

430 IFBlI> >YTHENI = I +1s GQTG430 
440 I FY >B ( J > THENJ =J-1 : G0T0440 
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7.2 DATA TAPE HANDLING 


This section contains the listing of an Address List program which 
makes good use of the Data file handling of the MZ-700 and 
demonstrates the method of recording data on separate tapes for 
future reference and updating. The program is menu driven, which 
means the screen displays a list of options that the user can take. 



TOTAL ENTRIES ARE 101 

Gr oup sub 

1== 74 2= 

-totals:- 

23 3= 1 4- 0 5= 1 6 = 2 


SELECTION 

1 

PRINTOUT 

2 

NEW ENTRIES 

3 

DELETIONS 

4 

SORTING BY NAMES 

5 

CHECK OR CHANGE DETAILS 

6 > 

SAVE DATA 


•3:WS;3; ENTER 1 to 6 


On selection of an option the program jumps to the particular 
routine to carry out that specific task, and on completion returns 
to the menu. The first time you run this program in answer to the 
'IS THERE ANY DATA ON TAPE' prompt will obviously be 'N', whereupon 
the program will jump over the Data reading section directly to the 
menu. You can now begin entering Names and addresses, not in any 
order, and when you have a dozen, or more, entries then use the sort 
option to place them in order. The sorting section, although faster 
than a bubble-sort is fairly slow as the strings associated with 
each surname have to be moved about in memory each time a surname is 
placed in the correct order. When entering details you will be asked 
for a Personal code number. This has been included to make long 
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printouts more selective, depending on the application. It can be 
used to differentiate between certain groups, such as group 1 could 
be family members, group 2 business associates, or could be used for 
each member of the family entering their own group of friends. There 
are six groups in all. When writing similar programs each section 
can be entered and tested separately as they are virtually self 
contained, this makes debugging easier as each section can be called 
from the menu and tested on it's own. 

At present the program can carry up to 150 names and addresses, but 
this could be increased to 255 maximum by altering the DIM 
statements in lines 260/270. The program contains usual screen 
prompts for input and is quite easy to run. The fast sort routine 
from section 7.1 has been included and altered to cater for strings 
when sorting of the names into alphabetical order is required. If 
you have added the routines in chapter 3.2.7 you will be prompted 
when to press the 'RECORD' and ’PLAY' buttons. Do not forget to use 
a fresh tape for recording the Data. 

When the program is up and running, and one feels the desire to make 
some changes to the program, most of us do, it is not necessary to 
start the program from scratch each time a mod is made, as this 
would entail loading the data tape each time. Simply enter GOTO 430 
and, providing the program has been run once before the changes, you 
will go directly to the menu. 


10 CONSOLE: COLOR, , 1,7: BOSUB2310:130T0250 

20 REM FA5TS0RT 

:.0 PR 1 NT " [ijSORT 1NB " : PR I NT " HMF LEASE BE PAT I ENT " 
40 REM 

50 S=1:SL(1 >— 1:SR(1> =EN 

60 L=SL(S> 5R=SR(S>:S=5-1 

70 X =L s J =R: X *=SN* (I NT ( (L+-R) /2 > ) 

SO IFSN* (X)<X*THENX=X+ls BDT080 
•VO 11- > *< SN* (J > THEN J -J-U S0T090 
I 00 IF X>JTHEN1B0 

1 ] o W*=SN* (X > : SN* < >;) =SN* ( J > : SN* ( J ) =W* 

I. 20 E*=CN* C X ) : CN* ( X ) =CN* <J> t CN* ( J ) =E* 

130 R*-AD*(X>: AD* (X > =AD*(J> sAD* ( J> =R* 

1.40 f *"-TN* (X > : TN* (X > =TN* < J ) s TN* (J > =T* 
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ir-o y*=pc* (>:>:pc* <>:) =.pc*(j> s pc* cj>=y* 

160 Q-C(X > :C(X)=C(J):C(J)=0 

370 X=X+1:J=J-1 

3 CO 1F X < =J THEN80 

3.90 IF X >=RTHEN210 

200 S=S-t-l: SL (S> =Xs SR (B) =R 


210 R=J 

220 IFLCRTHEN70 
230 IFSO0THEN60 
240 G0T0440 

250 COLOR, , 1,7:M=12: DIliSL CM),SRCM> 

260 DIM CN*(150),SN*t150),AD*(150> 

270 DIM TN* (150), F'C* (150> , C (150) , H (100> 
2BO DIMCTC6) 

290 X=0:EN=0 


300 PRINT[1,71"EM! IS THERE DATA ON TAPE <Y/N> ":USR(62> 

310 BETA*:IFA*=""THEN310 

320 1F A*-"Y"THEN360 

330 IFA*="N"THEN440 

340 G0T0310 

350 REM SH**5«!s«ijsREAD DATA TAPE**** 

360 R'OF'EN"MA IL LIST DATA" 

370 INPUT/T EN 

360 INPUT/T C'T (1) , CT (2) , CT (3) , CT <4> , CT <5 > , CT (6) 

390 FORX =1TOEN 

400 INPUT/T CN*(X>,BN*(X),AD*(X),TN*<X>,PC*(X),C(X) 

410 NEXTX 
420 CLOSE 


4 3 O REM * * :' : S: S: M E N U 38 * &: S: *:■: 


440 COLOR,,7,1: PRINT"g- 

450 PRINTLO,7ITABC9)"TOTAL ENTRIES ARE";EN 
460 PRINT:PRINT"Group sub-totals:—" 


470 PRINT" 1 =" JCT( 1 ) j “ 2=" 5 CT(2);" 3=";CT(3>; 

4CO PRINT" 6=";CT (6) 

490 PRINT!2,73 " ftSXSXSSXSJEEE SELECTION 


4=":CT(4); 


i TC=EN 


500 PRINT"EZZZZZ2J1 
510 PR I NT " EZZZEE222 
520 PR I NT " EE££ES2f3 
530 PRl.MT"HEHmW 

540 pRiNT"{aaas 
550 PR I NT " ESXZZXBJ6 
560 PRINT12,73 " Mi 


PRINTOUT" 

NEW ENTRIES" 

DELETIONS" 

SORTING BY NAMES" 

CHECK OR CHANGE DETAILS" 
SAVE DATA" 

ENTER 1 to 6 


":USR(6 


CT (5) 
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570 BETA*sIFA*=”"THEN570 
5B0 Z=VAL(A*> 

590 IF t Z<1) + <Z>6>THEN570 

600 DNZBDT0620,1000,1310,20,1560,2190 

610 REM : 3SKSj£:$KS5??i:&!?£'sKPR I NTQUT*iiK8:& 

620 PRINT"(i ENTER" 


630 

PR J NT 


+++++" 

640 

PRINT 


1 to 6 Key for Individual Group" 

650 

PRINT 

'E! 

7 Key tor Names & Phone only" 

66 1 ’ 

PR 1 NT 

' ti 

8 Key tor Complete List" 

<s /' i ' 

pr i n r 

ti 

-. .. . It 

660 

PRINT 

ti 

Press :PRINTC2, 73 "SPACE";:PRINT" 


690 BETZ*:IFZ*=""THEN690 

700 IF(Z *< " 1" > + f Z * >" 8 " >THEN690 

7 3,0 Z=VALi:Z*) 

720 N=0 

730 F0RX=1T0EN:IFZ>6THEN750 
740 IFC(X>< >2THEN940 

750 N=1 :PRINTCN*(X>;SN*(X);TAB(23);"tel.";PC*<X> #IFZ=7THEN770 
760 PRINTAD*(X):PRINTTN*(X> 

770 PRINT 

7BO BETZ*sIFZ*-""THEN940 

790 PR I NT C2,71"Sc r ol1 = +CURS0Rs MENU=0 (z er q>:C on t=0t her" 

800 BETO*:IFQ*=""THEN800 
13 10 Ir-0*~-" 0" T'HENBOT0440 

820 IFABC(Q*)=1BTHENSU=0:PDKE*59,*FOtB0TDB70 

830 PR I NT" II" ? SPC (38) iG0T0940 

840 BETZ*:IFZ*=""THEN84G 

050 IFASC(Z*)=18THEN870 

860 G0T0890 

870 UBR ( *67D ): SU=SU+1 

880 B0TD840 

890 POKE *59, *53 

900 FORSD=1T OBU-2 

910 USR(*655) 

920 NE.XTSD 
930 PRINT 
940 NEXTX 

950 IFN=OTHENPRINT"IWO ENTRIES IN GROUP";Z:PRINT"ANY KEY FOR MENU" 
960 PRINTC2,73"KDDNE..PRESS ANY KEY":USR(62) 

970 GETZ*:IFZ*=""THEN970 
980 GOT0440 


:G0TQ970 
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990 REM ****NEW ENTRIES 

lOOO COLOR,,0,4 
n to X“EM 
1020 X-X♦1 

1 0 SO PRINT"@NEW ENTRIES:-" 

1040 PRINT"IFNTRY NUMBER";X:USR(62) 

1050 PRINIC4,03"B IF THERE ARE NO INITIALS TYPE No 0 " 

1060 INPUT"IFIRSTNAME/INITIALS ";CN*(X > 

1070 I FASC (CN* (X> > =4BTHENCN* (X) = ‘ ": G0T01090 
10B0 CN*<X>=CN*(X>+" " 

1090 PR INT C 4,03"**#*#IF ENTRY NUT REQUIRED TYPE 0*#***" 

1100 INPUT"!! LASTNAME ";SN*<X> 

1110 IFASC(SN*(X >)=4BTHENG0T0440 
1 1 20 PR I NT " ill!" S BPC (39) ; " I**!" 

1130 INPUT"!! No. St STREET ";AD*(X> 

1 1 40 INPUT "IJTOWN & COUNTY " 5 TN* ( X 1 
1150 INPUT"!! TELEPHONE 1 ;PC*(X> 

1160 IFLEN(PC*(X > > <2THENPC*(X)="” 

1170 INPUT"IFERSONAL CODE(1 to 6>";C(X> 

1 1 BO IF 1C (XK1) + (C (X) >6) THEN 1170 
1190 CT(ClX))=CT(C(X)>+l 

1200 PRINTC4,O3"ISUSB3SE1S ALL THE ABDVE CORRECT(Y/N)":USR(62) 
1210 BETA*: IF A*=""THEN1210 
1220 IFA*="Y"THENGOTO1250 
1230 I FA*-"N"THENGDSUB1950:GOTO1250 
1240 GUT01210 

1250 PRINT!4,03 "ISIS THERE MORE DATA TO ADD" : USR (62) 

1260 BETA*:IFA*»""THEN1260 
127O IFA*= "Y"THEN 1020 
1280 IFA*="N”THENEN=X:TC=EN:G0T0440 
1290 GOTO1260 

1300 REM *w«»m*DELETIONS*mm 

1310 COLOR,,7,2 

1320 PR 1NT" I33ELETIONS:-":X=0 

1330 USR(62)5B0SUB1670:IFASC(DT* > =48THEN440 

1340 IFV-0THEN1330 

1350 PRINT 

1360 PRINT"-**-" 

1370 INPUT"INPUT No. TO DELETE(O return to menu)";L 
1380 IFL=0THEN440 
1390 PR INTCN*(L)5 SN*(L) 

1400 PRINTAD* CL) 
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14 J. 0 PR INTTN* (L) ; " "J PC* (L) 

1.420 PRINT "WARE YOU SURE (Y or N> ": USR (62) 

1430 RETZ *:IF2 *=""THEN 1430 
1440 1F 2 * ="N"THEN1310 

1450 IFZ* = " Y "THENF'RINT"(JJWAIT..I AM MOVING THEM ALL UP ONE"!G0T01470 
1460 GOTO 1430 

14 70 CN*(L > ="":SN*(L)="":AD* < L > ="":TN*(L > PC*(L > ="" 

14BO CT (C (L >>=CT(C(L)>-lsC(L>=0 
1490 FDRX---LTOEN 

1500 DM* <X>=CN*(X+l):SN*(X)=SN*(X+l> 

1510 AD*(X>=AD*(X+1> sTNSiX^TN^X + l) 

1520 PC* (X > =F'C* (X +1) s C (X ) =C (X +1 > 

1530 NEXTX 
1540 EN=EN-:l. 

1550 GOTO1310 

1560 REM *mm*kmkDETAIL CHANGE** 

1.570 COLOR,, 0.4 

1580 F'RINT"BCHANGE OF DETAILS" 

1590 BDSUB1670!IFASC(DT*)=48THEN440 
1600 IFV=0THEN1590 
1610 PRINT 

1620 PRINT"-+ 4-" 

1630 F'R I NT C 4, OI " ENTER LINE TO ALTER " 

1640 P'RINTX4,0]" zero returns to menu "jtlNPLJTX 
1650 IF X-0THEN440 
1660 GOSUB1950:GOTO1590 

1670 INPUT"8jPLEASE ENTER SURNAME (O returns to menu>"?DT* 

1.6B0 IFASC (DT*> =48THENRETURN 

1690 0=0 

1700 FORX = 1 toe:n 

1 7 10 11- SN* (X > =DT*THENV=V+1 s H (V > =X 

1. 720 NEXTX 
1 730 IFV< OTHEN 1880 

1740 PRINT "BJJMO CORRESPONDING NAME FOUND" 

1750 PR INT"PERHAPS THE SPELLING IS WRONG" 

1.760 PRINT"BI WILL PRINTOUT ENTRIES SIMILAR" 

1 7 70 LL=3sGOSUB1780s GOTO1820 
1.780 F ORX = ! TOEN 

1.790 IF LEFT* (SN* (X ) , LL> = LEFT*(DT*.LL>THENV=V+1: H(V>=X 

1 BOO NEXTX 

1810 RETURN 

1920 IFV<>OTHFN1880 
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1830 FRINffiMO. .HOW ABOUT THESE:-" 

1840 LL-= 1: GOSUB1780 
1850 IFV<>0THEN18B0 

1.860 PR I NT "THERE ARE NO ENTRIES THAT BEGIN WITH THAT LETTER" 
1870 RETURN 
1880 PRINT"!!" 

1890 PR I NT "No.!!" 

1900 F0RX=1T0V 
1910 P~-H ( X ) 

1920 PRINTP?" ":CN*(P>:SN*(P>;" ";AD* <P> 

1930 NEXTX 
1940 RETURN 

1950 REN »*wm*ss!KS»s*>KCHAN6ESi***** 


1960 

PR1 NTTAB(B >S " 1 

" 5 CN*( X > 

1970 

PRINTTAB(8) ; "2 

";SN* (X > 

1 980 

PRINTTAB(8);"3 

AD* (X) 

1990 

PRINTTAB(8)j"4 

":TN*(X> 

2000 

PRINTTAB(8) ; "5 

";PC*(X > 

2010 

PRINTTAB(8>:"6' 

; c ( X ) 


2020 PRINT 

2030 PRINT"-+-" 

2040 PRINT C4,01"No.OF LINE TO CHANGE (IF 0/K TYPE 0>";:INPUTN 
2050 IF CNCO) + (N>6) THENPRINT" Si" : G0T02040 
2060 IFN=OTHENRETURN 

2070 PRINTC4,03"UU******PRESS ’CR’ WHEN CORRECTED#*****" 

2080 PRINTSPC(39) 

2090 ON N 60102100,2110,2120,2130,2140,2150 

2100 INF’UT " iHIMHii l . st NANE " 5 CN* (X ) : PRINT"S" : CN* (X > =CN* (X > + " 

2110 INFUT " ijiHlIiL nSTNAME " ; SN* (X > : PR I NT"B" : G0TD1960 

2120 INPUT " IMMIMir io ■ & ST ■ "; AD* (X> : PRINT'S" : B0TD1960 

2130 I NPUT " IMMfiUfTN. & CY. " ; TN* (X > : F'R I NT " H” : GOTO 1960 

2140 INPUT"UUUUUTELEPHONE ";PC*(X):PRINT"®":GOTO1960 

2150 CT(C(X))=CT(C(X>)—1 

2160 INPUT" UBUUJSER CODE ";C(X> 

2170 CT(C(X >)=CT(C(X >)+1:PRINT"g":GOTO1960 
2180 REN SAVE DATA****** 

2190 COLOR,,5,0:PRINT"® DATA SAVE " 

2200 PRINTCO,53"!! PRESS ’CR’ WHEN DATA TAPE IS REWOUND " 

2210 GETZ*:IFZ*=""THEN2210 
2220 1FASC(Z*)<>13THEN2210 
2230 WOFEW'NAIL LIST DATA" 

2240 PRINT/T EN 


:G0T0196( 
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2250 PRINT/T CT ( i > , CT (2) , CT (3> , CT <4) , CT (5) , CT <6> 
2260 F0RX=1T0EN 

2270 PRINT/TCN*(X >,SN*<X>,AD*(X>,TN*(X>,PC*CX>,C(X) 

2280 NEXTX 

2290 CLOSE 

2300 BQT0440 

2310 PRINT"1" 

2320 F0RX=6T00 STEP-1 
2330 COLOR,,X,7 
2340 PRINT'- IMH " 

2350 PRINTTAB (3) ? " * * * * *'“ 

2360 PRINTTAB(3);"** ** * * # #" 

2370 PRINTTAB(3)S"* ** * ***** * *" 

23B0 PRINTTAB(3) i "* * * * * *" 

2390 PRINTTAB (3) i *'* * * * * *****" 

2400 PRINT!PRINT 

2410 PRINTTAB<9 >;"* * **** *****" 

2420 PRINTTAB(9)!"* * * *" 

2430 PRINTTAB(9);"* * *** *" 

2440 PRINTTAB(9)!"# * * *" 

2450 PRINTTAB(9 );"***** * ***** *" 

2460 MUBIC"R9" 

2470 NEXTX 
2480 RETURN 
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8. Interpreter Points 


8.1 BASIC INTERPRETER 1Z-013B VI.OA 


When the Interpreter has loaded at $1200 it executes a boot routine 
at $7D79 which zeroes the internal clock, stores the current cursor 
positions at there new address and switches out the ROM Monitor and 
Video Ram areas. It then loads itself down to commence at $0000, on 
the way it loses the boot section and after the initial screen 
message is printed this is wiped out too. Strangely enough even the 
initial '36439 BYTES FREE' is built-in to that first message. PRINT 
SIZE immediately after would produce 36592. 


The 

jump table 

at 

the start of RAM Monitor has different 

addresses 

to the ROM Monitor, 

they 

are listed below, all addresses are 

in hex. 

Some 

appear to be unused 

while others are duplicated. 



0000 

C3DA00 

jp 

OODA 

Start 



0003 

C32001 

jp 

0120 

Get Line. Not used, all calls 

to 

004A 

0006 

C3FE04 

jp 

04FE 

New Line2 



0009 

C3FA04 

jp 

0 4FA 

New Linel 



oooc 

C33105 

jp 

0531 

Print Space 



0 OOF 

C30205 

JP 

0502 

Print Tab 



0012 

C33305 

JP 

0533 

Print Character 



001 5 

C3DA04 

JP 

04DA 

Print Mess. Not used, all calls 

to 

0051 

001 8 

C3DA04 

JP 

0 4DA 

M ii ii ii •• 

(1 

II 

001 B 

C3F002 

JP 

02F0 

Get Key Not used 



0 01 E 

C3A004 

JP 

04A0 

Break 



0021 

C33BA0 

JP 

0A3B 

Write Info. Tape Header Data 



0024 

C33F0A 

JP 

0A3F 

Write Data 



0027 

C37A0A 

JP 

0A7A 

Read Info. Tape Header Data 



002A 

C37E0A 

JP 

0A7E 

Read Data 



002D 

C3940A 

JP 

0A94 

Verify 



0030 

C3E408 

JP 

08E4 

Melody 



0033 

C35A0D 

JP 

0D5A 

Set Time 



0036 

0000 
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0038 

C3E40D 

JP 

0DE4 

Interrupt 

003B 

C3A70D 

JP 

0DA7 

Read Time 

003E 

C3130A 

JP 

0A1 3 

Bell 

0041 

C3040A 

JP 

0A04 

Set Tempo 

0044 

C3B709 

JP 

09B7 

Melody Start 

0047 

C3D209 

JP 

09D2 

Melody Stop 

004A 

C32001 

JP 

0120 

Get Line 

004D 

00 



Plot on flag 1=on 0=off 

004E 

00 



Console flag 1=on 0=off 

004F 

FF 



Basic flag FF=Basic 64=Monitor 

0050 

00 



Used on Write to Tape 

0051 

C3DA04 

JP 

04DA 

Print Message 

0054 

00 



Cursor Column 

0055 

00 



Cursor Line 

0056 

00 



Console Start Line 

0057 

18 



Console Amount of Lines 

0058 

C35302 

JP 

0253 

Get Key No Repeat on keys held down 

005B 

00 



Console Start Column 

005C 

27 



Console Amount of Columns 

005D 

71 



Current Screen Colours. 71=white on blue 

005E 

00 




0 05F 

00 



ASCII code of Last Key Pressed 

0060 

EF 



Display code of Current Cursor Character 


0061 

C36A0E 

JP 0E6A Joystick Routine 

0064 

00 

AM/PM flag 0=am 1=pm 

0065 

00 

Used with Joystick 

0066 

00 

M It II 


8.2 RAM Monitor 

Function Addresses 

1 443 

Save 

1 469 

Load 

1 4A9 

Verify 

1 4B8 

Return 

1 545 

Goto 

1 54A 

Dump 

1 5BD 

Memory set 

1 5F4 

Find 

1 65A 

Transfer 
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8.3 Basic Tokens and addresses 


The following list is of all the keyword tokens and the addresses 
where they will be found, some are not implemented and produce 


errors if 

used, 

whilst others 

do not 

show actual addresses as they 

are handled within 

their parent 

routines. i.e. 

USING is 

handled in 

the PRINT 

routine, 

TO and STEP 

are within FOR. 

The Maths 

operators 

are handled in the 

Expression evaluator 

routines 

commencing at 528B. 

Keyword 

Token 

Address 


Keyword 

Token 

Address 

GOTO 

80 

3807 


GOSUB 

81 

36CD 

RUN 

83 

1 C6E 


RETURN 

84 

3694 

RESTORE 

85 

2 5A8 


RESUME 

86 

36FB 

LIST 

87 

4102 


DELETE 

89 

3456 

RENUMBER 

8A 

3471 


AUTO 

8B 

21D5 

FOR 

8D 

1 CBF 


NEXT 

8E 

1 D6F 

PRINT 

8F 

1 E6A 


INPUT 

91 

22CA 

IF 

93 

383F 


DATA 

94 

3323 

READ 

95 

25E3 


DIM 

96 

5AEA 

REM 

97 

3323 


END 

98 

21B7 

STOP 

99 

2071 


CONT 

9A 

209F 

CLS 

9B 

38CE 


ON 

9D 

3792 

LET 

9E 

1 959 


NEW 

9F 

2248 

POKE 

AO 

33D7 


OFF 

A1 

20FE error 

MODE 

A2 

4DD0 


SKIP 

A3 

4E2C 

PLOT 

A4 

3A31 


LINE 

A5 

4E8C 

RLINE 

A6 

4EFE 


MOVE 

A7 

4F05 

RMOVE 

A8 

4F1 4 


TRON 

A9 

227E 

TROFF 

AA 

2282 


INP£ 

AB 

3350 

GET 

AD 

3389 


PCOLOR 

AE 

4F1B 

PHOME 

AF 

4F50 


HSET 

B0 

4F64 

GPRINT 

B1 

4F76 


KEY 

B2 

4321 

AXIS 

B3 

4FFC 


LOAD 

B4 

41D1 

SAVE 

B5 

42A4 


MERGE 

B6 

41 AB 

CONSOLE 

B8 

39CB 


OUT 

BA 

3339 

CIRCLE 

BB 

5050 


TEST 

BC 

5227 

PAGE 

BD 

523B 


ERASE 

CO 

20FE error 
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ERROR 

Cl 

21 05 

USR 

C3 

3305 

BYE 

C4 

1 3C2 

DEF 

C7 

251 B 

WOPEN 

CE 

46A3 

CLOSE 

CF 

4545 

ROPEN 

DO 

4 6DF 

KILL 

D9 

20FE error 

TO 

EO 

-- 

STEP 

El 

-- 

THEN 

E2 

-- 

USING 

E3 

-- 

TAB 

E6 

-- 

SPC 

E7 

-- 

OR 

EB 

20FE error 

AND 

EC 

20FE error 


EE 

-- 

jf" 

EF 

-- 

--< 

FO 

-- 

< =3 

FI 

-- 

■= > 

F2 

-- 

>= 

F3 

-- 

= 

F4 

— 

> 

F5 

-- 


F6 

-- 

+ 

F7 

-- 

- 

F8 

-- 

/ 

FB 

-- 

★ 

FC 

-- 

* 

FD 

-- 

SET 

FE 81 

3902 

RESET 

FE 82 

3935 

COLOR 

FE 83 

4473 

MUSIC 

FE A2 

443C 

TEMPO 

FE A3 

4463 

CURSOR 

FE A4 

336C 

VERIFY 

FE A5 

42D1 

CLR 

FE A6 

224E 

LIMIT 

FE A 7 

340B 

BOOT 

FE AE 

3A6A 

INT 

FF 80 

6277 

ABS 

FF 81 

6272 

SIN 

FF 82 

63C6 

COS 

FF 83 

63B0 

TAN 

FF 84 

6 4BD 

LN 

FF 85 

6736 

EXP 

FF 86 

6615 

SQR 

FF 87 

62D0 

RND 

FF 88 

65D0 

PEEK 

FF 89 

65B5 

ATN 

FF 8A 

62EE 

SGN 

FF 8B 

657A 

LOG 

FF 8C 

672A 

PA I 

FF 8E 

65A2 

RAD 

FF 8F 

659D 

EOF 

FF 95 

20FE error 

JOY 

FF 9E 

39A3 

STR$ 

FF A1 

5677 

HEX$ 

FF A2 

55EC 

ASC 

FF AB 

56A0 

LEN 

FF AC 

56AC 

VAL 

FF AD 

56B4 

ERN 

FF B3 

5562 

ERL 

FF B4 

556A 

SIZE 

FF B5 

5548 

LEFTS 

FF BA 

56C7 

RIGHTS 

FF BB 

56E4 

MID$ 

FF BC 

5702 

TI $ 

FF C4 

57 3F 

FN 

FF C7 

5CF7 
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8.4 Useful Addresses 


The following list of RAM Monitor subroutines and addresses is not a 
complete list, but it might assist those of you who are delving into 
the Interpreter with your Disassemblers. 

$0067 to $00A6 Control code address table. Contains the addresses to 
jump to after the ?CHR$ statement or a key with the CTRL key down, 
as listed on page 27 of the Manual. Other codes in the range 0 to 31 
which are not shown on page 27 will effect an immediate return. 

$00EA routine called from PEEK to access V-RAM 
$00F2 used to POKE to V-RAM. 

$04A0 checks for Break key. 

$04CD ASCII to Display code converter. 

$0EFC ASCII to Display code table. 

$OFFC file type stored. 

$0FFD file name. 

$100E file size. 

$1010 execution address. 

$ 11 OF last line input buffer. 

$1322 to $13C1 DEF KEY function table in ASCII, any alterations to 
DEF KEY will be stored here. 

$1822 is where Basic jumps to on after loading, where the initial 
screen message is displayed and subsequently gets wiped out as RAM 
is cleared up to $FF00. If you don’t want everything cleared then 
this is the place to make alterations. 

$1848 is where all future returns to Basic from ROM Monitor jump, so 
keeping RAM intact. 

$1869 is where 'Ready' gets displayed. 

$1872 is the main edit loop. 

$18FE starts the execution loop, and the check for TRON is made at 
$1919, and Break is checked at $1930. 

$19B9 is the routine for converting MZ-80K to MZ-700 programs. 

$20C7 is the error table and numbers. 

$21A7 gets the current line number. 

$2287 TRON routine, finishes at $229E. In fact the TRON mod in 
chapter 3 which overwrites this section takes up 3 additional bytes 



to $22A1, but this does not appear to be Used. 

$242F to $2458 which although contains code, is not used. The Slow 
Run and Stop List routines from chapter 3 have been placed here. 
$2AF5 starts the first keyword table, up to $2CA8. 

$2CA9 to $30A8 is completely empty and this seems a likely place for 
any additions you might like to make. If you use a Toolkit this is 
the most favoured spot for it, so Dump this out before making 
changes. The BAS-MOD toolkit is located here and appears to end at 
$2EC9, which still leaves plenty of space. Some of the additional 
routines in chapter 3 have been placed towards the end of this 
section, from $307A to $30A5, and obviously could be relocated. 

$30A9 sees the start of the second keyword table up to the start of 
keyword addresses. If you are using a Toolkit or a peripheral device 
which needs extra code placed somewhere, check on this area before 
adding any extra routines, for instance BAS-MOD brings the second 
keyword table forward 3 bytes to start at $30A6. 

$3147 is the keyword address table, it finishes at $3304. 

$3807 is the address of GOTO. In most versions of Basic GOTO or 
GOSUB start there searches for a line number from the top of the 
program, which on a long listing or a frequently used subroutine can 
slow up the running, the 700 Basic doesn't. When one enters a Basic 
line with either of these statements the token keyword, $80 for GOTO 
or $81 for GOSUB, is followed by $0B and the line number. When the 
program has been run once the byte which follows the tokens gets 
changed to $0C, and the bytes containing the line number get altered 
to the absolute address in memory where the GOTO line is stored, so 
cutting down the time taken searching for program lines. Naturally 
each time a line is added or edited these bytes get changed back to 
$0B followed by line number, as there absolute addresses might then 
be different. 

$38D3 to $38EF is where pointers to the current program are stored. 
$38D5 Stack pointer. 

$38D8 Gosub flag. 

$38D9 Runflag. 1=Stop 0=Run. 

$38DD TRON flag. TROFF=0 TRON=1. 

S38E6/7 hold the current line number. 

$3D86 is the binary to decimal conversion routine. 
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$3DB2 Used by binary/decimal conversion, divides HL by DE and stores 
one digit ASCII result. 

$4795 Turns basic line into tokens. 

$49CD Turns tokens back to text for listing. 

$4B72 to $4D4F error messages are stored here. 

$4D50 checks for Integer less than 255 (i.e. used on CHR$). 

$4d 65 checks for Integer over 255 (i.e. used on MOVE). 

$4DCB Plotter mode flag. 1=Text mode. 2=Graph. 

$4DCD Print size pointer. Contains 78 for Normal (40 char), 76 for 
Large (26) and 83 for Small (80). 

$4EE0 Pointer for co-ordinates. Contains 68 if LINE, 74 for RLINE, 
77 for MOVE or 82 for RMOVE. 

$528B Checks all maths expressions. 

$6AB3 to $6AC1 more pointers to current program. 

$6AB3 End of program. 

$6AB5 Variable storage. 

$6AB7 End of complete file plus variables. 

$6AB9 Stack pointer. 

$6ABD Top of RAM. 

$6ABF Start of Basic file. 


8.5 ROM Monitor Addresses 

The 'D' command for Dump also operates in ROM Monitor but is not 
mentioned in the Manual. 

$ 10F1 to $1101 Name of program. 

$1102 Size of program. 

$1104 Loading address of program. 

$1106 Execution address of program. 

$1108-$116F Used as program comments, S-Basic stores the original 
copy routine here. 

$1171 Current cursor column. 

$1172 Current cursor line. 

$1192 Display code of cursor character. 

$1194 Number of characters on present line. 



$119-B AM/PM flag. 0 = AM 1=PM. 

$119D Bell flag. 0=bell on when each key pressed. 1=off. 
$119E Tempo flag. At switch-on=4. 

$119F Length of Music note played. 

$ 11 AO Which Octave. 

$ 11 A1 - $ 11A2 Frequency of note, as in Basic at $0A39~3A. 
$11A3-$11F3 Stores line of text from keyboard. 
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Appendix 


Display Code Table2 


The Display Code Table below is of the second character set. 
The Top section is shown with the Hex values, while the lower 
is in Decimal. 


-US_II 0? 03 gj 85 06 07 08 09 OA SB PC 80 DE IF H 11 12 S3 H 15 16 17 IB 1? 1A IB 1C ID IE IF 


20 21 22 23 2^ 25 26 27 2S 29 2A 2B 2C S) 2E 2T 30 31 32 33 31 35 T ’l? 38 39 XX XX X X 
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Display Code Table 2 
































Display Code Tablel 


o 

CM 

j«l 

rH CM m 

CM CM CM 

□ SI 

•<r m vo r- 

v 4 "C TT 

CM CM CM CM 

J LE EE | EE Is 

co m 

TT rr 

CM CM 

□ 0 i 

O rH cm m ^jr in 

in m m m m in 

CM CM CM CM CM CM 

■25 i 13 H El El || 

cm 

rsi 

ft 

in vo m 

rg cm rg 

CM CM CM 

n rt* ^ 

co m 

CM CM 

eg cm 

f < s 

O rH 

m m 

CM CM 

1 W i 

eg m m vo e- cd m 

mmm mm mmm 

CM CM CM CM CM CM CM CM 

¥ V: ^ | HJ £ hh ki S3 

cd m o m in m 

O O -H rH rH —4 

cm cm eg cm cm eg 

tt in 

H rH 

CM CM 

1 0 5 

VO r** co mo m eg rn 

rH rH rH rH CM CMCMCM 

CM CM eg CMCMCMCMCM 

IH00I00QQ i 

CM 
m 
»— 1 

41 

m in vo r- 

m m mm m 

H H rH •—4 rH 

□ Q □ □ 0 

co m 

m m 

rH rH 

1 ffl ii 

O rH 

o o 

CM CM 

: x h . 

cm m 

o o 

eg cm 

■K 1 i¥l i 

in vo r- 

o o o o 

CM CM CM CM 

* > ® ■© 

vo r- cd mo r—i 

r~~ m r- r- cd cd 

*H *-H m r-i »h #— I 

DB0DQ0 

eg m •o* in vo r- cd mom 

CD CD ODOOCO CD 00 cd m m 

rH <—4 r-4 rH rH rHrH rHrH rH 

!□□□□□! HB0B0Q 

o —4 cm m in vo i-*- co m o *-4 

vo vo vo vo vo vo vo vo vo v© r- 

rH r—ir—i rH rH rH rH *—4 rH rH rH rH 

□ lOSHQEl^aEBSl ^ 

cm m •«y in 

r- r~- m r» 

rH rH rH rH 

:Q Joj | ; <j -O 

•*T U~> VO C' 

rr tj- rr 

0§BE 

co m 

'c ■vr 

H H 

3 BE 

O rH 

m m 

rH *H 

1 > 5 

cm m m vo co m 

in in in in m in in in 

f-A r-H r—i «— 4rHrHr—4rH 

]0B0| SQDDQ 

co mo *—• 

cm cm m m 

BS@I> 

cm m 

m m 

3 @B 

^■mvoe-co morHCMm 

mm mm m m se -^r 

rHrH rHrH rH rHrH rHrH r~4 

|B@@BBl9BU] c o 

cm m tt in vo r* 

rH r—i rH i —4 rH ’—1 
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ASCII Code Table 


o < cn ro kt in vo 

•*T T V *'9' *VT 

CM CM CM rM CM CM CN 

□ ffl □ B □ H | E 

p co cn 

««r -vr rr 

CM CM CM 

0 me 

© 

in 

CM 

1 ♦ 

rH 

in 

CM 

1 @[ 

m m tt in 

n in in in : 

M CM CM CM 

3BBI 

CM 

CN 

□ 

in vo p co cn o *-h cm m *»r 

cm cm cm cm cm mm mm m 

CM CM CM CM <M CM CM CM CM CM 

DSBIDDI] ID1BBHB 

in vo p co cn 

mm mm m 

CM CM CM CM CM 

IQQ0SD 
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On the next page is a table for converting Hexadecimal numbers 
to Decimal. The first column is Hex and the second and third 
decimal. 

To illustrate it's use take a Hex number, say the beginning of 
a Basic program in memory at 6BCF Hex. To calculate the 
decimal equivalent take the first pair of numbers, 6B which is 
known as the MSB most significant byte, and look it up in one 
of the first columns, the decimal equivalent of the MSB 
relates to the second column. The decimal equivalent is 27392. 
Now take the second pair of numbers, CF which is the LSB Least 
significant byte, and convert it once again but this time 
refering to the third column. It equates to 207 decimal. Add 
the two figures together, 27392+207, and the equivalent to 
6BCF hex is 27599. 
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HEX DEC DEC H 


D I H 


*2 56 . 

*256 

00 00000 

0 

i 4 13312 

01 00256 

1 

i 5 13568 

02 00512 

2 

36 13824 

03 00768 

3 

37 14080 

04 01024 

4 

38 14336 

05 01280 

5 

39 14592 

06 01536 

6 

3A 14848 

07 01792 

7 

3B 15104 

08 02048 

8 

3C 15360 

09 02304 

9 

3D 15616 

0A 02560 

10 

3E 15872 

0B 02816 

11 

3F 16128 

0C 03072 

12 

40 16384 

0D 03328 

13 

41 16640 

0E 03584 

14 

42 16896 

OF 03840 

15 

43 17152 

10 04096 

16 

44 17408 

11 04352 

17 

45 17664 

12 04608 

18 

46 17920 

13 04864 

19 

47 18176 

14 05120 . 

20 

48 18432 

15 05376 

21 

49 18688 

16 05632 

22 

4A 18944 

17 05888 

23 

4B 19200 

18 06144 

24 

4C 19456 

19 06400 

25 

4D 19712 

1A 06656 

26 

4E 19968 

IB 06912 

27 

4F 20224 

1C 07168 

28 

50 20480 

ID 07424 

29 

51 20736 

IE 07680 

30 

52 20992 

IF 07936 

31 

53 21248 

20 08192 

32 

54 21504 

21 08448 

33 

55 21760 

22 08704 

34 

56 22016 

23 08960 

35 

57 22272 

24 09216 

36 

58 22528 

25 09472 

37 

59 22784 

26 09728 

38 

5A 23040 

27 09984 

39 

5B 23296 

28 10240 

40 

5C 23552 

29 10496 

41 

5D 23808 

2A 10752 

42 

5E 24064 

2B 11008 

43 

5F 24320 

2C 11264 

44 

. 60 24576 

2D 11520 

45 

. 61 24832 

2E 11776 

46 

■ 62 25088 

2F 12032 

47 

' 63 25344 

30 12288 

46 

1 64 25600 

31 12544 

46 

) 65 25856 

32 12800 

5( 

) 66 26112 

33 13056 

53 

L 67 26368 


‘256 


D H 


52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 
7 3 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 
103 


68 

69 
6A 
6B 
6C 
6D 
6E 
6F 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 
7 A 
7B 
7C 
7D 
7E 
7F 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 
8A 
8B 
8C 
8D 
8E 
8F 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
9A 
9B 


26624 
26880 
27136. 
27392 
27648 
27904 
28160 
28416 
28672 
28928 
29184 
29440 
29696 
29952 
30208 
30464 
30720 
30976 
31232 
31488 
31744 
32000 
32256 
32512 
32768 
33024 
33280 
33536 
33792 
34048 
34304 
34560 
34816 
35072 
35328 
35584 
35840 
36096 
36352 
36608 
36864 
37120 
37376 
37632 
37888 
38144 
38400 
38656 
38912 
39168 
39424 
39680 


D 

*256 


104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 
14 0 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 


9C 
9D 
9E 
9F 
AO 
A1 
A2 
A3 
A4 
A5 
A6 
A7 
A8 
A9 
AA 
AB 
AC 
AD 
AE 
AF 
BO 
Bl 
B2 
B3 
B4 
B5 
B6 
B7 
B8 
B9 
BA 
BB 
BC 
BD 
BE 
BF 
CO 
Cl 
C2 
C3 
C4 
C 5 
C6 
C7 
CS 
C9 
CA 
CB 
CC 
CD 
CE 
CF 


39936 
40192 
40448 
40704 
40960 
41216 
41472 
41728 
41984 
42240 
42496 
427 52 
4 3008 
43264 
43520 
43776 
44 032 
44288 
44544 
44800 
45056 
4 5312 
45568 
4 5824 
46080 
46336 
46592 
46848 
47104 
47360 
47616 
47872 
48128 
48384 
48640 
48896 
49152 
49408 
49664 
49920 
50176 
50432 
50688 
5094 4 
51200 
51456 
51712 
51968 
52224 
52480 
52736 
52992 


156 

157 

158 

159 

160 
161 
162 

163 

164 

165 


D 

*256 


DO 

D1 

D2 

D3 

D4 

D5 

D6 

D7 

D8 

D9 


166 DA 


167 

168 

169 

170 

171 
17 2 

173 

174 
17 5 

176 

177 

178 
17 9 
180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 
207 


DB 

DC 

DD 

DE 

DF 

EO 

El 

E2 

E3 

E4 

E5 

E6 

E7 

E8 

E9 

EA 

EB 

EC 

ED 

EE 

EF 

FO 

FI 

F2 

F 3 

F4 

F5 

F6 

F7 

F8 

F9 

FA 

FB 

FC 

FD 

FE 

FF 


53248 208 
53504 209 
63760 210 
54016 211 
54272 212 
54528 213 
54784 214 
55040 215 
55296 216 
55552 217 
55808 218 
56064 219 
56320 220 
56576 221 
56832 222 
57088 223 
57344 224 
57600 225 
57856 226 
58112 227 
58368 228 
58624 229 
58880 230 
59136 231 
59392 232 
59648 233 
59904 234 
60160 235 
60416 236 
60672 237 
60928 238 
61184 239 
61440 240 
61696 241 
61952 242 
62208 243 
62464 244 
62720 245 
62976 246 
63232 247 
63488 248 
63744 249 
64000 250 
64256 251 
64512 252 
64768 253 
65024 254 
65280 255 
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In each row the first column is the Hex code. 

The second row is the Decimal equivalent multiplied by 256 to 
calculating the M.S.B. 

The third row is for use with the L.S.B. 
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